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1 . INTRODUCTION 


1.1 PURPOSE AND SCOPE 

This document makes current the existing design documentation on 
the LACIE Automatic Status and Tracking System (ASATS) as imple- 
mented on the PDP 11/45 computer. To accomplish this objective, 
it contains descriptions of all the modifications necessary to 
implement TIRF 77-0035, Enhancement of the ASATS Sotware. The 
complete ASATS was documented by previous publications (as listed 
in Section 2), and this document should be used in conjunction 
with those publications, superseding them where they conflict 
with statements made herein. 

1.2 BACKGROUND ' 

ASATS was implemented using the Regional Information Management 
System (RIMS) , a generalized data base management system. 

TIRP 77-0035 required several enhancements to be made to RIMS. 

They were as follows: 

a. Additional Data Base Protection - In order to prevent inad- 
vertant destruction of portions of the data base, additional 
user interaction to verify the user's desire to execute the 
command is requested for the Delete Set (DS) , Delete Record 
(DR) , Delete Key Name (DK) , and No Key (NK) commands. 

b. Null Set Detection and Control - In order to prevent produc- 
tion of headers for reports containing no data, the Jump 
Test (JT) and Label (LA) commands are implemented. 

c. Arithmetic Operators - The ability to allow arithmetic opera- 
tions on fields of data is implemented for the Select Non-Key 
(SN) , Joint Select Non-Key (JN) , Display Formatted (DF) , Joint 
Display Formatted (JF) , Report (RP) , Joint Report (JP) , and 
Change Field (CF) commands. 
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d. Inter Data Base Comparisons - The ability to specify arithme- 
tic relationships between fields at different levels of the 

i 

data base is implemented in the Joint Select Non-Key (JN) , 
Joint Display Formatted (JF) , and Joint Report (JP) commands. 
The ability to sort with fields at different levels of the 
data base is implemented in the Joint Sort (JS) command. 

e. Subgrouping by Field with Maximum, Minimum, Sum, and Count 
Functions - The ability to specify fields for which records 
are to be grouped by value and print field values , maximum 
or minimum field values, sums of field values, or counts of 
records for the resulting groups is implemented in the Report 
(RP) and Joint Report (JP) commands. 

The remainder of this document identifies the changes to RIMS 
software required to implement the enhancements. 





2 . APPLICABLE DOCUMENTS 


The following documents are applicable: 

a. RIMS Design Document, February 1976 (LEC-9564) 

b. RIMS Maintenance Document, October 1976 (LEC-9566) 

c. i^SATS Functional Design Document, November 1976 (LEC-9861, 
JSC-11835) 

d. Implementation Specification for Large Area Crop Inventory 
Experiment (LACIE) Phase III Automatic Status and Tracking 
System, March 1977 (LEC-8675, JSC-11401, Rev. A) 

e. Operator's Guide for ASATS, March 1977 (LEC-10401, JSC-12729) 

f. RIMS Users Guide, April 1977 (LEC-9301, Rev. A) 

g. Detailed Design Specification for the Automatic Status and 
Tracking System Modifications for LACIE Procedure 1, May 1977 
(LEC-10529 , JSC-12885) 

h. TIRF 77-0035, May 1977 

i. ASATS Users Guide, June 1977 (LEC-10148, JSC-12535, Rev. A) 

j . As-Built' Design for LACIE Phase III Automatic Status and 
Tracking System, June 1977 (LEC-10419, JSC-12743, Rev. A) 

k. Project Development Plan for the Enhancement of the Software 
of the LACIE Automatic Status and Tracking System, August 1977 
(LEC-10977, Rev. A) 

l. Functional Design Specification for Enhancement of the Auto- 
matic Status and Tracking System Software, September 1977 
(LEC-11199, JSC-13110) 

m. Detail Design Specification for Enhancement of the Automatic 
Status and Tracking System Software, November 1977 (LEC-11512, 
JSC-13789) 
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3 . SOFTWARE MODIFICATIONS 


3.1 CONTROL FILES 

Various non-data files were changed to take advantage of the new 
features of RIMS or to make necessary adjustments. These files 
are listed in the following sections as they currently exist. 

3.1.1 ASATS . BIS , BATCH RUN 


- 9j08/MAM FaA 8AT8l — — — 

SMESSaGE ASATS batch stream VERSION 17 {FEB, 1978), 

.-SM FSS -A. fiE FIXED to -S0PT-F1)NC4 4. PD &- A - PD$ — I - Mf 0 ORDER By TYPE, — 

SMESSAGE SURE YOU H A VF f 

-SMfr&SAGE PE-A-D -I-N-E ^RD D E- 0 - K - , 

smfssagf c wtthi pip •[?io,ajUP ) 

— S-MF S S -A- G E - 1 -M-G- ASE OF— T R 0 - U R L F- » — 0 - A brW-| 

SMESSAGE JOE FVFRETTE ?13-fe?08 {DAYS) 

SASSAGE - QB JO h N CO O N — - {DA yg - ) OR 481-0339 {NIGHTS) 

^MESSAGE IF CARDS MOT n.k., ABORT THIS RUM AMD RESTART 
-S-M g S SA-gg-* , -H-H-~A NU-LKEP--&A-T- A-S-A^S-A- FTg - R - R E-ATH-NG— CA P & S-. 

Smcr pip dum.tes* r?i o,tn emdfilE 

-■S- MCR --R IP— trR+=-t-?4-0 T U l*- i -T-F3-J-*-/i -f 

SMESSAGEy^AIT WQW, TYPE TN CONfC*) TO CONTINUE, OR ABOCCR) TO ABORT, 
-S MC a PIP LFis E810, < i ] » .T - ESHMM 

smessage start preprocessor 

UR -FILES — - - 

SMCR PIP 

_4-24-$-<mT1-DUM Y-, T E-Ss- f 2-1-0 , 4 1-E W DE-If-F - 

1210**5 *.TES? */0E 

—S — I TRANSFER PPOG - RAMS TO fg10,tll TO M A kg. S RI/M C0m » *ND — WOR K— A- 5 

$MCR PIP 

— t«-OffllSTFSl r TTK*rg0<>,5j8T-FPl T$k - 

121 0, fl) $TEP3.TTKs{20£, <51 STFP3,T$K 

_-.{-24-0-,-L ) STEP-5 ,-TXK s-f.20F- f -5-)-F-TFPB ¥ -T-$k 

121 0»«) ASATS.TTKa t?06*F) ASATS, TS* 

— 1 21 SUM PQSTp.TTk-s [206,51 PQS - T - P, T g- K 

[210#^) RI^S.TTks r206.5l RTMS.TSK 

. . S — l- S-Lg^, _}. R E-AD-S-— PR-F 1 -l-l-C-R^-A MP- -W-R-T T-^S — 5 U 7— T-HE, - F OL - l - Q -^ IM G-| 

S I PPFU3 AND PPE1 * * { PHA SF 3 AND TV 1 FOR LAT£R PROCESSING) 

I o TRELR _ £J- LE-S— T-0— L-I-N F— P-R-T-M-T-FR 

S i SORT OPERATION WILL ALWAYS HaV£ INPUT AND ALWAYS PUT OUT 
-J.-1 SOME THING - IF. IT RUNS SUCCESSFUL 4-*'. 

SwCR PEm rsxbat 

-SftUM - S - T - g P W T- T fe 


- 9 -± 

H 


- v-t. ./-i- PAGE lb 

OF POOR QUALITY 


SMgSSAGE start SORT 

& H e. R . S ft T — U4 . 0 , a 3 P £F - P fl 3 1 T M ■ { ? 1 Q , fl- 1 - P p p 1 a 3 - , - T-E S / S T Z E « 6 0 » D L S EE - C ■ , S n P 

s i can now save space ev rfmovIng input to that sort, 

SMeR PIP [gUMlPPFl fl S'.TESM/DF 

SMCR SRT [210,43 PPFjaa'.TFSs PPF 1 a4 . TFS/S I ZF j so i DL SPEC , SOP 

SMCB PIP tPlOiai PPFl flfl ’.TPSM/PE — 

§ I SET UP NOW pHR STEPj'. 

S | S T E P-3 WRHE S-. TWO FI LE S FO R Each LACTE PH A RE t 

? I PPF5SC3 4N0 43 OF NPN-*‘ p, % CAROS 

-S— l PFFSMS AMD a ) OF *. 2, 1 C A ROS 

S 1 ALL FOUR MUST EXIST IF NO MESSAGES ARE TO 8E GIVEN p 

_ SmCR — PIP 

[210»a3PPF333.TESef?io,41 ENDFlL f 

—1 2 - 1 0 ,. a-j-P-PFS5a T -tE-Sa-f ?-4-0- ¥ -a^ emop I-U F 

EglO.a] PPF 353 . TESs f?1 O.ai ENOFILE 

■[• 2 -1 0 .4 3 PPF35tt,TE Ss rpio./ j l . eNQgiLE 

SMCR REM RSXBAT 

SmCR PIP [210, U] PpF?a3'.TFS?*/0F 

S MCR P Jg— ULtO»Al P-P-F ? an \ T E-S-M /DE - 

SMESSAGE step 3 OF PREPROCESSOR finished 

ft 1 BEFORE DOING THE SORT., PUT UP A HIJmm V-— O-U-T-PU T -E-24.E ■■ F Q R— 14-, 

SMCR PIP [?10,a]PPFa?P‘.TESef?»0,aiENDFTLE 

& MgR 5 RX- [2-l-Q-,-a-3-P-PF aPP '.-TF-S= [-24 0 ,-fl4-W333 . - T ES^ S I Z E > 8 0 /K EY S I CN 4 , 4 1 CN 1 , 80 
S 1 NOW OLE AN UP INPUT FTLES TO THAT SORT, AND 

— S — ! UP — D UMN-V — OU-T-PJJ T-P-F-aR-4 T -^P--S'. — 

SMCR PIP 

1210. aj PPF333 9 TES)*/DE 
f210.a3PPFS3P.TESB f?1 o.ai endfile 

— f 2 1 0 * a 3 P -P F E 5 R « T -g S o-r-p 46-r-a-l-g-N D F I L € 

[210. a] PPF57P, TESs f? 1 0. 41 ENDFILF 

— *M &P - P I P -[24-0- , 4 3-P PF a ? P-^FS-> ■ft-y-DF 

SMCR PIP [210, ai PPF65J. TFS* t?l 0, aj ENDFILg 

6MCP Pip 

LPis[?10,a3PPFS7P e TFS 

f210,a]-pPFS7P.TES» + /OE- - 

E2lO,«3PPFS5P # TESl*/nE 

— T240r4lPHASg^ 6 TES« f?i o, al PPFP3P.TES/RE - — 

r P 1 0. ai PHASE3 ,TeSb f?1 0, ai PPFAS3. TES/AP 

,[ -2 4-0. a i pH A g E 3 t TE Sg C?1 0.av -PP F3 5 3.T -^ S/AP 

[210. a 3 PPF53P.Tf 5a f?1 0, a 3 ENDFILE 

- f24-<4r-4 }--PPFS3P,T-tSj + /ftE 

t23 0,a3 PPF«>53,TES»*/DE 

— f-2-H>T-a-3 ppf- 354-.-^E-S >-*-/fVE 

[210. a] pPFa2P„TESs r?i o, ai endfilf 

S M &P -. SRT 1 2 1 0 , a 3 P - FFa?P . TF -S- g - lp - l 0 , a ] P P F33a . TE S /S I ZE - 4 P O - /KEY 3 - t €-N A | . 4| I &N - H 8 0 

s i now clean up input to that sort and give dummy output for step 5* 

SMCR PI P-- - 


[210.a3PPF33a,TESl+/DF 
m - O - . a 3 -fig W P- . -- T -E-&C f 2+O-HH-ENEP-H: E 
[210.a3PPF55P.TESs r? 1 O.ai ENDFILE 
424-0 ■> a 3 p g - F-K yp . . r g o . a i -e m&p-i b E 


SMCR REm RSX8AT 

FR-U-N- ^ TEP5--.-T-T-K - 

SMCR PIP 1210, «] PPFa2P’.TES»*>DF 
— SM-FS-S A G F ST g-P- -5-g- I - N I S H E D -Fcm- -f* f. 
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s t sort 6,2,3 non.sfts rack into card. type order, 

-& 4 - .. FI - BST, CRMTF A DUMM Y sooted file, 

SMCR PIP [?1 0,4] PPPfeS^^TPSs [?1 0 , 4] ENDFTLE 
( 2-UL,.Z | ) B PF-fe*4^-T£&=42-l- - - - 

I DELETE INPUT TO that SORT, CONCATENATE update files, 




t2 1 0»ai PPF55P.TtS;*/DE 

- .LP-i-a t2tO,q.1 PPF5ZP,4 f$ - 

1210.^5 PPF57P,TES|*/0E 

— L2-iJD-,-iJ l B R A S EJl^-TE $ e I-?. e^p_3p_ r T-E-S-/P-i 

t2 1 0, 4] PHASE 4, TE S s t? 10.4! pPFfr54l , TES/AP 

— ta-UU.iiJ-P-UA&EA^l44 s f ? i_0-^W.p PP-V^a ...tpsy. A P 

121 0»aiPPP53P.TES« 121 0,41 FNDFILF 

UJ-a^4ia££5^£^XfAMs/J.6 - 

[21 0, ii] PPF<»54,TES|*/f>E 

— 1-2.1 0,41 ppF354.TE$I*/DE -- 

S ! ALL FILES ARF NOW CLEANED UP AND UPDATES ARE IN 2 FILES# 

_S_4- SEPARATED BY PHA$F* .pfcUs-eJ.^&S- AHD-pHA^E4,T&S-r 

SMCR PIP 

— f 2 1 0 , il l P P E 153 , £ S3 s-L ? 10 ,4 1 F - NDFI - L.E 

(210,4) PPF353.TE8> + /ftE 

— m^AUeFlSS.XE** (?i o-r-4TP y As.EA, TES/&E 

(210 #4) FDR0 12,nATe[2l0,il1 ENDFILE 

— l2Xa,iUEaRj04.2,DA-T-| */DE - 

[210, <JlFOR01?,nATs[?lO, in ENDFIL E 

— ill. FnR007, DATs r 2 1 Q , 4 1 £AUXE: nj 

f21 0 > <11 FORO07.DAT / * / DE 

— SAlE-SSA&E TYJ. UP-DAT-ES s4TLL— N0W B-EGJJ4-, 

SMESS4SE THIS IS YOUR LAST CHANCE TO STOP T Y 1 UPDATES (CON OR ASO), 

S MC SL-P4P 4P4-S (210., 4-1-*.. T€- S . M - / K — 

SMESSaGF/wAIT (IF you GO PAST THIS POINT, YOU CANNOT RESTART), 

... smcr pip l p? s rgio. ii i » ,tes)*/l'i 

SMCR PIP [?10,43RM4.rOVcf210. 41 RM 44 .COM 
— S M C- R— R£-M~ RSX&A-T- 


SRUN ASATS.TTK 

- SMC R— B-I-P- -f-2-1-0-^44 t- 8- I -TP-S^-* lr *HM.VL-^ 
SMESSAGE TY1 UPDATFS COMPLETFD. 
SMCR PJP 

f210»al RN2.POSS [2io,ai FNDFTLF 


r2i o, aj rmzi.com* r?i o, ai ^ndfilf 

_4^4^4) R-mzi.-C-OMJ* /OF - -- — - 

f2t o, ai Ri^a.poss [?i o, a] foroi 2'.dat 

■ 121 0 . a ] - DUN, -?- lPs 42 l <H-a ) EN D F-T-L-F 

(210,41*, ZTPl*/DF 

AGF PB£P APE OUTPUT REPORTS F OR TY1-, -- 

SMCR PIP POSTS, ZTPsEMDFTI F 

SRUN POSTP.TTK 

— &M C R — PIP t210# 41 CARDS. T E-S«4- 2 - {0 -r 4l W JM C 1 EV R E 

SMCP SRT f210,4]PuNCH,7IP*f2l'o,aiCARD8,TgS/SIZFl80/KEYSlCNi,80 


^er 

ir 


o?n 

rf “ i r 

tatO.-#Hfl.TESo 121 0,41*;* M^LT 

{ g lO ^WNie-H- 8 --7 T P a (2 1 f > f -af^ A - TE -4 ^ - 0 H - AA P 

t210,4] P0S84.TFS* r?!0.i»] POSTS. ?jp 
— H10. - 4 . 1 - pn8T8«ZIP» * /DF 

(210.4] PMM.TES* (210741 PUNCH*. ZIP 

• -C-g 10. 41 -P MNC H r HP | a /OF 

LP|a r210, 41 *.Z1P>* 

— (21 0. 4] PO ST 8. Zip s f - gj o. 0] P 0S 8 il a TES/RE 

(210.4] PUNCH. ZIPs (210,4] PUN4* TES/RE 

i —SX APT THE OTHER DATE* REPORTS. 

SHCR PIP (210,4] UNITS, SAT120* (210, 4] PATCH, SAT 

P. Mg R -P4P-fP4-O-,-4-]-B- AT v O0M s f g 1 0 7^H- WF - MrE 

SMCP PIP (210, 4] RAT.COM;*/OE 
.^4CR-P4P-- [? - 10 - , -4 ] R A T ;rO Mg [g 1 0,41 RE P-- E0M - H -- /RE 
SMCR PE M RSXBAT 

S PUN S I-M.S-.-T-T.K 

SMCR PJP (210,4] lq’.TFSb (21 0,4] *,*|*/LI 

— S.MCR PI-P (210,4] DU M-.ftXT-s-f? l-o. u4-FM-0-F^trF 

SMCR PIP (? 1 0 , 4] * , SHT I */DE 

— S MCR - P lp— (-2-1 0-, 4] BA-T-f-eO-M-Hk-ZOE 

SMCR REM RSXBAT 

— SidC R PI P f?10, 4 l fl AT.CO M g- f . a-1 . 0. 4 lPEP . COMlg/BE 

$RUN RIMS.TTK 

_& MC R - P - I - g -- (2 - l 0 *M M-0 » T F-So^- 7 * )* y-t A 

SMCR PIP [210,4] DUM.SHTb (210,4] ENDPRE 

, ._SMCR--.P-I.P— 1 24-0-, 

SMCR PIP (210,4] RAT. C0 M |*/DE 

. .. SMC . r ... p I- P. .i.210,4] R A- T- f - C - BM s. (210,4]REp.COM;3/KF 

$MCP pen rsvbat 

--SS1IN -R-l-M-S .-T-T-K 

SMCR PIP (2t0,4] LQ.TFS**'.* >*/LI 

__LmC R - P 4R— ( 24-0-,-4-1-DUM- . fi h ] a f g -l-Q-^-l-g- N -QF- i -i- E 

SMCR PIP f?10,4] *.SH!I*/DE 

S MC R PI P- f . P . 10, 4 ] BAT.COM|»/DE 

SMCR PIP (?10, 4] PAT.COM* (210.41 REP.C0MI4/RE 

— S-MC-R— R-E-N— « S X RA T 

SPUN RIMS.TTk 

_ ^ C - P - P - I - P--(? - l 0 . , 4] LQ . T F5 e^r^l-^ /U T 

SMCR PIP t?10, 4] DUM.SHTa (210.41 FMDFII F 

— SMCR PIP t?lft,4] + .SHH + /0E 

SMCR PIP (21 0,41 RAT. CQM|*/DE 

— SMCR- P4P--C 2- 1 Q - r ^UB-AT-^-C^M-a-f-g 10 .-4- ] -P. E -p„.. £ -. r ) M| . R/ -R-E 

SMCR REN RSXBAT 

— S*iJ-M_R-I^S-,-T-T<- 

SMCR PIP (210,4] I Q*.TFS3* '*»*/[_ I 

— &MC-EL-P..TP. (2 1 0 , 4] DUM . SH T s f 2 1 0 , 4 1 F.NDF X L E 

SMCR PIP [?10,4]*.SHTI*/0E 

— S - HC ft- P I -g-42-1-0 ,-4-] RA T---C-QM f * / Dg - 

SMfP PIP (210, 4 ] Rat,cOM S (21 0.4] REP.C0M16/RE 
— SMC* -REJ4 -MSX&A-X - 
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SRUN RIMS.TTK 

SMC« PIP [?U,fl]L0,TF8B* , .*I*/lI 
SMCR PIP [310,4] OUM.SHT# t210.fl1E*JDFILE 




SHCR pip £?10, 45 BAT.COM»*/DE 



SMCR pem RSXBAT 




SMCR PIP t?lO,aiL0‘ Te8**'.*l*/LI 


SMCR PIP C?iO,4I *.SHTl *>DE 
SMCR pip t?10, 43 UNITS, SATj? 0 >nE 


SMESSAGE ********* ************************************************ 
-•SmCSSAGE * f-ND of ASATS TYI patch UPDATES AND -REPORTS * 

^message * remember tor * 


— SLHE-SS AGE * 
SMESSAGE * 


make eAR&s-.-fueE-CRDoyrr-H 
FILE f?ln, a] PUNCH.ZIP) 


SMESS4GE * 
- S -H E S- S a^E— *- 

$me$$age * 


■ 


PRINTER ANO do PIP Pf210»«JLA ) 
f NOTE t VOU ARE STILL IN £5*51) 



(2^. B 

'*>0* *<* ,s 

Qu 4l/T? 


r 



3.1.2 TY10RDER.COM, PACKET ORDER LIST 


BE 

2Z1 

RF12.7 
SKPC ' 
SKPC 
C01 *2 
QC3 

8KCURS1 M 
C0«*5 ‘ 

0E1 

JT5,LB 
RF12* 10 

HD?, 1 
!8T 


DAILY packet order l 


8P0, 1?, DATE, COM 
1 3 p 12 

HD1, 

HD1, TRANSITION YEAR \ ITS PCI 

HD! , 

HD1, 

HD?, ORP SEG L p T 4C0 REG ?0M£ STR R W C NT 
TX REC rAMS/LPoi comment 

HD2# NO . OATF W V 

ATE 

RF!2» 10 
JP5,R0 

8C5,A4), TOTAL ACKMJTSTTTONS 
L ALB 


LAST DEL 
CHNG 


D 


RF12.7 
SKPC ? 

eci 

8KCURS1 H 

C0?*3 

OBI 

JY3,LR 
RF 1 10 
H02, 1 
rsT 

ppfl, 1?, DATE.COM 

RP13» 1 2 

HD1, 

Hoi, TRANSTSTION year 1 us 

HOI, 

HD1, 

HD2» 0R0 SEG LPI ACO • REG 2GNE 
TX REC CAM$/lPDL COMMENT . 

HD2, MO DATE 

ATE 

RF 12* 10 
JFS,90 

SC3,46. TOTAL ACQUISITIONS 
LALB 


DAILY PACKET ORDER L 

PC? - 

STR B W CNT LAST DEL 

W V CHNG D' 
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BE . 

RF1S»7 
SKPC 3 
SCI 

SKCURS1 H 

C0g*3 

0E» 

jts,lb 

HD?,1 

1ST 

RFO, 12, DATE, COM 

apis. i? 

HOI, 

Hot, TRANSITION YFAR 1 IIS 

HOI, 

HOI, 

H02, ORO SEG LPI ACO PER ZONE 
TX REC CAMS/lPDL COMMENT 
HD2, NO OATF 

ATE 

RF1 2, 10 

JPS,90 

SC3,^6, TOTAL ACOUTSTTTONS 

ULB 

BE 

RP12,7 
SKPC 61 


PCS 


STR 


SCI 

SKCURS1 H 

CQ2*3 

Dgl 

JT3,IR 
RP12, 1 0 
H02, 1 

1ST 

RFC, 12,OATf,COM 

RF13, 1? 

HOI, 

HOI, TRANSITION YEAR i 
HOI, 

HQ 1 , 

HD?, ORD SFG L^I ACO REft 
TX PEC CAMS/L d 0! COMMENT 
HD2, NO 0 ATF 

ATE 

HP12# 10 

JF3,90 

§C3,4fc, TOTAL ACOlj TS TT TONg 
LALB 


AUSTRAL 

ZONE 


TA 


STR 


daily packet order l 


B w CNT LAST DEL 

w V CHNS 0 


daily packet order l 


PC61 


s w CNT LAST DEL 

u V CHNG 0 


id 



BE 

RF12,7 
SKPC 25 

sc 1 
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3.1.3 RIMS.CMD, RIMS TASK BUILDER COMMANDS 
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3.1.4 RIMS.ODL, RIMS OVERLAY STRUCTURE 
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3.2 NEW AND MODIFIED RIMS PROGRAMS 


3.2.1 PROGRAM DESCRIPTIONS 

On the pages following are the RIMS programs (subroutines and 
functions) that were created or modified to provide the requested 
enhancements . 




ADDDT 


To initialize the Working Buffer Format for 
a date encountered in the input command. 

• Calling sequence: CALL ADDDT (FC, NC, ROW) 

0 Common blocks used: SY3C0M 

o Subroutines or functions used: DTEINT 

9 Files used: None 

FC = integer variable; character number in 
array CMD of /SY3C0M/ where the date starts 
(.# sign) . 

NC = integer variable; number of characters in 
the date literal, including the # sign. 

ROW = integer variable; the row number of the 
Working Buffer Format into which the date 
reference is placed. 

Process Description : The pointer to the last used row of WBF, the 

Working Buffer Format^ is incremented by one. 

$L is stored into the second word of the row 
of WBF. The value of 4 is stored into the 
sixth word of the row of WBF. The value of -1 
is stored into the seventh word of the row of 
WBF. The subroutine DTEINT is used to convert 
the date from a character string in the command 
line to a binary integer in the first word of 
the row of WBF. The row number is stored in 
ROW, and a return to the calling routine is 
made . 


Name : 


Purpose : 


Linkage : 


Input Description : 


Output Description: 





Name : 


ADDFN 


Purpose : To initialize the Working Buffer Format for 

a field name encountered in the input command 
line . 


Linkage : 


© Calling sequence: CALL ADDFN (FC, NC, ROW) 

e Common blocks used: SY3C0M 

© Subroutines or functions used: COMSTR, SUBSTR 

@ Files used: None 


Input Description : FC = integer variable; character number in array 

CMD of /SY3C0M/ where the field name starts. 

NC = integer variable; number of characters 
in the field name. 


Output Description : ROW = integer variable; the row number of the 

Working Buffer Format, WBF, into which the 
field name reference is placed. 

Process Description : Column two of WBF is searched for the field 

name. If it is found, the row number is stored 
into ROW, and a return ( is made to the calling 
routine. If it is not found, the pointer to 
the last used row of WBF is incremented by 
one, the field name is placed in column two 
of that row, that row number is stored in ROW, 
and a return is made to the calling routine. 



Name: 


ADDLT 


Purpose : To store a reference to an alphanumeric 

literal into the Working Buffer Format 

Linkage : ® Calling sequence: CALL ADDLT (FC, NC, ROW) 

9 Common blocks used: SY3C0M 

9 Subroutines or functions used: None 

© Files used: None 

Input Description : FC = integer variable; character number in 

array CMD of /SY3C0M/ where literal starts 
(first quote mark) . 

NC = integer variable; number of characters 
in the literal, including the beginning and 
ending quote marks . 

Output Description : ROW = integer variable; the row number of the 

Working Buffer Format into which the reference 
to the literal is stored. 

Process Description : The pointer to t;he last used row of WBF, the 

Working Buffer Format, is incremented by one. 
$T is stored into the second word of the row 
of WBF. The value of FC+1 is stored into 
the fifth word' of the row of WBF. The value 
of NC-2 is stored into the sixth word of the 
row of WBF. Zero is stored into the seventh 
word of the row of WBF. The row number is 
stored into ROW, and a return to the calling 
routine is made. 
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Name: 


ADDNM 


Purpose : 


Linkage : 


Input Description : 


Output Description : 


Process Description 


To initialize the Working Buffer Format for a 
number literal encountered in the input command. 

• Calling sequence: CALL ADDNM (FC, NC, ROW) 

• Common blocks used: S^COM 

® Subroutines or functions used: INPARM 

• Files used: None 

FC = integer variable; character number in 
array CMD of /SY3C0M/ where the number starts. 

NC = integer variable; number of characters in 
the number. 

ROW = integer variable; the row number of the 
Working Buffer Format, WBF, into which the 
number reference is placed. 

: The pointer, NWBF, to the last used row of 
WBF is incremented by one. Then $L, 4, and -1 
are stored in WBF (2, NWBF), WBF (6, NWBF), 
and WBF (7, NWBF), respectively. INPARM is 
used to convert the number from a character 
string in CMD to a binary integer in WBF 
(1, NWBF). The row number, NWBF, is stored in 
ROW, and a return is made to the calling routine. 



Name : 


AEINIT 


Purpose : 


Linkage : 


To initialize standard areas of core for 
commands which allow arithmetic expressions 
in their syntax. 

• Calling sequence: CALL AEINIT (IND, SETNO , 

FMTNO, ERR) 

• Common blocks used: SYSCOM, SY3C0M, CLTBL 

• Subroutines or functions used: SQZE, 

INPARM 

© Files used: Command file (logical unit 

13) , Message file (logical unit 7) 


Input Description : IND = integer variable; indicator to cause 

special processing for certain commands. 
Set 0 for SN, JN, and CF commands. Set 1 
for DF and JF commands. Set 2 for RP and 
JP commands . 


Output Description : SETNO = integer variable; contains the set 

number converted from the input command 
line . 

FMTNO = integer variable; contains the 
format number converted from the input 
command line, if there is one. 

ERR = integer variable; returned zero if 
no errors found, non- zero if any error is 
found. 


Process Description : 1. Zeroes are stored in all words of /SY3C0M/ 

2. Blanks are stored in all words of the 
Working Buffer, WBUF. 

3. Word 6 of row 1 of the BY Processing Table 
BPT , is initialized to '+$-§’ to cause the 
first record re'ad in an RP or JP command 
to create a top level BY change. 



4. 


The first word of array COMMAS in 
/CLTBL/ is initialized to 1. Variable 
FC, used to point to the next available 
character in array CMC of /SY3C0M/ (where 
the input command will be packed) , is 
initialized to 1. The logical unit 
number for the command file, U13, is 
retrieved from U(13) in /SYSCOM/. 

The logical unit number for the message 
file, u7, is retrieved from U(7). 

5. A call is made to SQZE (STR, 1, 80, CMD, 

FC, NCS, COMMAS) to transfer and compact 
the input command string (in STR of 
/SYSCOM/) into array CMD. NCS is returned 
as the number of characters stored by 

SQZE into CMD, and pointers to syntactically 
meaningful commas are returned in COMMAS . 

6. FC is incremented by NCS. 

7. If FC<_401, go to step 9. 

8. Set ERR = 1 and return to the calling 
routine . 

9. If COMMAS (1) < 0, meaning the last input 
card has been processed for an RP or JP 
command, then negate COMMAS (1) and go 
to step 13. 

10. If IND = 2, go to step 12. 

11. If the last character stored in CMD is 
a comma, then go to step 13, otherwise 
increment COMMAS (1) by 1, store FC 
into COMMAS (COMMAS (1) ) , and go to step 
13. 

12. Read, from unit U13, 80 characters into 
the beginning of array STR. If the 
actual unit number for the message 
file = 7, then go to step 5, otherwise 
echo the input string by writing, to 
unit U7, 80 characters from the 
beginning of STR, and go to step 5. 

— pQA . 



13. Calculate NC, the number of characters 
in the input set number, = COMMAS (2) -3. 
Then convert SETNO = INPARM 

(CMD, 3, NC) . 

14. If SETNO < 0 or SETNO > TABNO, then go 
to step 8. 

15. If IND ^ 1, go to step 18. 

16. 'Calculate NC, the number of characters 
in the input format number, = COMMAS (3) 
- C0MMAS(2)-1. Then convert FMTNO = 
INPARMCCMD, COMMAS (2) +1 , NC) . 

17. If FMTNOx 0 , go to step 8. 

18. Return to the calling program. 
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Name: 


AEPR 


Purpose : 


Linkage : 


Input Description : 


Output Description : 


Process Description; 


To parse an arithmetic expression made 
up of arithmetic operators and 
operands (Field names, dates, or integer 
constants) , entering operands (or pointers 
to them) into the working buffer format 
and building a sequence of internal 
commands to evaluate the expression and 
store the value into a specified result 
variable. 

© Calling sequence: CALL AEPR (FC, NC, 

PTR, ERR) 

9 Common blocks used: SY3C0M 

© Subroutines or functions used: ADDFN, 

COMSTR, DTEINT, INDEX, INPARM, STAEPR, 
VERIFY 

© Files used: None 

FC = integer variable; character number 
in command line at which to begin 
processing . 

NC = integer variable; number of 
characters to process. 

PTR = integer variable; location into 
which the results are to be stored. 

ERR = integer variable; processing or 
syntax error indicator. Normal command 
table containing internal commands to 
evaluate the expression and store the 
results . 

Error flag set to zero and all internal 
variables set to appropriate value. 

The expression is scanned f or _pai-red 





brackets and valid alphanumeric 
characters . If brackets not paired or 

any invalid character found ERR set 
to 2 and return executed. Otherwise, 
the number of paired brackets saved for 
later use, character pointers and 
counters set as needed and the 
expression is scanned and PASS 1 executed 
as follows: 

1. (a) If the next character encountered 
is not an open bracket do step 2. 
Otherwise an open bracket is stored 
in the next location of VTAB and a 
-99 is stored in the next location of 
OPC. (b) . If this is the last 
character the error exit is taken 
otherwise update pointers and counters 
and fedo step 1(a) . 

2. If the next character encountered is 
a closed bracket ERR is set to 2 and 
return executed. Otherwise do step 3. 

3. The next 13 characters are searched 

i 

for either the end of the scan or 
an arithmetic operator. If the end 
of the scan is found the pointer is- 
set to the end of the scan +1 
location otherwise the location of the 
next operator or bracket will be 
found. Then the current character will 
be checked to see if it is a pound 
sign. If it is not a pound sign step 
4 is executed. Otherwise the next 
four characters past the pound sign 
are checked to see if they are numeric 
digits. If they are not digits, ERR 
is set to 2 and return executed. 
Otherwise DTEINT is called to convert 
the date to an integer, the appropriate 
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data is stored in the normal command 

buffer and step 6 executed. 

4. The current character in checked 
to see if it is a literal value. 

If it is not a literal value step 5 
is executed. Otherwise the literal 
is converted to an integer, the 
appropriate data is stored in the 
normal command buffer and step 6 
executed. 

5. If none of the above were executed 
then the next operand is a field 
name. In this case ADDFN is called 
to store the data in the normal 
command buffer and step 6 executed. 

6(a) If the last operand or operator has 
been processed a- 999 is placed in 
the current location of OPC and the 
pass 2 is executed as shown starting 
at step 8. Otherwise the next 
operator is checked to see if it is 
either an open or close bracket. If 
It is an open bracket the error exit 
is taken. If it is a closed bracket 
step 7 is taken. (b) Otherwise the 
operator is stored in the next 
location of OPC and step 1(b) executed. 

7. The character after the closed 
bracket is checked. If it is an 
open bracket the error exit is taken. 
Otherwise a- 88 is stored in the next 
location of VTAB § OPC and the 
pointer and counters updated. If 
the character after the closed 
bracket was itself a closed bracket 
step 6 is taken. If the operator 
after the closed bracket was not a 



closed bracket and at the same 
time located at the end point of 
the expression to be processed, 
the error exit is taken otherwise 
step 6b is taken. 

8. The count of data in VTAB § OPC is 
saved for later use. If the’ number 
of paired brackets is zero, PASS 3 
is executed as shown starting at 
step 10. Otherwise step 9 is 
executed. 

9. The OPC table is searched and the 
innermost paired brackets , as 
indicated by a -99 and a -88 
respectively, is found along with 
their index location. Then STAEPR 
is called to store the data into 
the normal command table. Then 
the remainder of the VTAB & OPC 
tables is written over the area where 
the paired brackets were stored, the 
count of data in VTAB & OPC is 
decreased by the amount of data 
processed by STAEPR, the number of 
paired brackets is decreased by 1 
and step 8 taken. 

10. If more than one line of data is left 
in VTAB § OPC STAEPR is called to 
store the data into the normal 
command table. Otherwise the normal 
command table is updated with the 
calling argument PTR and column 5 
of all used areas of the normal 
command table is updated to point 
to the next expression area to be 
processed. 





Name: 


AUFILE 


Purpose: 


i 

To control the processing for the Add File 
(AF) and Update File (UF) commands. 


Linkage : 


• Calling sequence: CALL AUFILE (I J, IFUN) 

o Common blocks used: SYSCOM, SY2C0M 

• Subroutines or functions used: ADDR, 

APSCNT, APSINT, APSTUP, AUPOST, GETREC, 
INPARM, LMVTAB, REPR/ SUBSTR, TFORM 

• Files used: Unit 7, Logical unit U(ll) 


Input Description: IJ = integer variable; indicates which of 

the first five fields of the input format 
contains the record ID. If IJ=0, the record 
ID is expected to be in characters two through 
five and seven through ten of the input 
record. 

IFUN = integer variable; value is one for 
the AF command and two for the UF command. 


Output Description : None 


Process Description: 1. 


Variable TIM1 and U7 are initialized to 
zero and U{11), respectively. 


2. APSINT is called to initalize files U(9) 
and U(10) for holding new keys and 
deleted keys. 

3. If IFUN=1 , row 2 of array BUF is filled 
with blanks. 


4. Read a record into row 1 of array BUF 

from' unit U7. If an end-of-file is read, 
go to step 20. 
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5. If IJ^O , read the record ID, J, from 
BUF (via subroutine INPARM) from the 
location specified in row IJ of page 
1 of format array FMT. Go to step 8. 

6. Read the upper half of the record ID 
(via INPARM) from characters 2-5 of 
row 1 of BUF. 

7. If the internal format number (found 
in FMTID(2)) is not 19, ^read the lower 
half of the record ID (via INPARM) 
from characters 7-10 of row 1 of BUF . 

8. If the record ID, J, = 0, go to step 

20 . 

9. If the function indicator, IFUN,=1, go 
to step 11. 

10 . Get the record with ID=J from the data 
base (via GETREC) into row 2 of BUF. 

If the status returned from GETREC 
was zero (implying that the record was 
present and its internal format was 
already loaded in page 2 of array FMT) , 
then go to step 12. If the status 

was two (implying that the record was 
present, but its format had to be 
loaded) , then go to the next step, 
otherwise go to step 3. 

11. Set TIM1=1 and call LMVTAB to load the 
move table in array MOVTAB. 

12. If TIM1=0, then go to step 11. If 
IFUN=1 , then go to step 14 . 
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13. 


Each field number in row 2 of the 
move table is passed to subroutine 
APSTUP which , if the field is a key 
field, builds an entry on logical 
unit U(10) to show a key field value 
that needs to be deleted. 

14. Call subroutine TFORM to transfer 
data from fields of the record in row 

1 of BUF into fields of the record in 
row 2 of BUF, as directed by the move 
table. 

15. If IFUN=1, set the first word of row 

2 of BUF equal to the length of 
the record in that row. 

16 . Each field number in row 2 of the move 
table is passed to APSTUP which, if 
the field is a key field, builds an 
entry on logical unit U(9) to show a 
key field value that needs to be 
added . 

17. If IFUN=2 , subroutine REPR is called 
to replace the existing record with 
the new one just created from the old 
one and the new fields. 

18. If IFUN=1 , subroutine ADDR is called 
to add the record just read to the 
data base. 

19. Go back to step 3. 

20. Write ' SP ' on unit 7, use APSCNT and 
AUPOST to delete old keys and post 
new keys, and then return to the 
calling routine. 






Name : 


BLDTBF 


Purpose : 


To convert a data base format into a form 
suitable for standardized processing. 


Linkage : 


• Calling sequence: CALL BLDTBF (P) 

• Common blocks used: SY2C0M, SY3C0M 

• Subroutines or functions used: COMSTR 

0 Files used: None 


Input Description : P = integer variable; page number of array FMT 

in /SY2COM/ where the data base format is 
currently stored. 


Output Description: None 


Process Description : 


1. Initialize K to zero. 

2. Initialize I to two, the first row of the 
data base format which contains a field 
name . 

3. If NWBF, the pointer to the last used row 
of WBF, the Working Buffer Format in 
/SY3C0M/, is = 0 , go to step 8. 

4. Initialize J to one, the first row of WBF. 

5. If WBF (2, J) = $R, $T, or $L, go to step 7. 

6. Use COMSTR to compare the field name in 
column 2 of WBF to the field name in 
column 2 of FMT at row I. If a match is 
found, go to step 9. 

7. Increment J by one. If J <_ NWBF, go back 
to step 5. 
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Increment NWBF by one. Transfer 
columns 2, 4, and 5 of row I of 
FMT to columns 2 , 4 , and 5 of row 
J of WBFs. 

9 . Increment NTBF , the pointer to the 
last used row of TBF , the Target 
Buffer Format in [ SY3C<()M| , by one. 
Store a one in TBF (1,NTBF) and 
store J in TBF (2, NTBF). Transfer 
columns 3 , 4 , and 5 of row I of 
FMT to columns 3, 4, and 5 of row 
NTBF of TBF. 

10. If the target field type, TBF 
(7, NTBF) ,=4, set k=l. 

11. Initialize X to one. Search 
column 2, row I, of WBF for $R, 

$T, or $L. If any one is found, 
go to step 15. 

12 . Search column 2 of WBF for the 
field names "UNLOAD" and "LSD". 

If "UNLOAD" is found, go to step 

13. If "LSD" is found, go to 
step 14. If neither is found, 
go to step 15. 

13. Set TBF (4,1) = -I. If TBF (4,2) 

7 ^ 0 , return to the calling routine, 
otherwise go to step 15 . 

14. Set TBF (4,2) = -I. If TBF(4,1) 
t^O, return to the calling routine. 

15. If TBF (4,1) = 0, meaning "UNLOAD" 
was not found, increment NWBF by 
one, store "UNLOAD" as a field 




name in column 2 of WBF at row NWBF, 
set TBF (4,1) = -NWBF, and then, if 
TBF (4, 2) ^ 0, return to the calling 
routine . 

16.. Increment NWBF by one, store "LSD" 

as a field name in column 2 of WBF at 
row NWBF, set TBF (4,2) = -NWBF, and 
return to the calling routine. 
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Name : 


CFCR 


Purpose : 


To direct the overall processing sequence 
for the CF command. 


Linkage : 


• Calling sequence: CALL CFCR 

• Common blocks used: SYSCOM, SY2C0M, 

SY3C0M, CLTBL 

e Subroutines or functions used: AEINIT, 

CICFDF, APSINT, SETINl XXIN1 , FTFMT, 
FTCMP , GETREC, TFORMW, EXCMDS, APSTUP, 
TFORMZ, REPRj APSCNT, AUPOST 

• Files used: Message file (logical unit 

7) , Deleted keys file (logical unit 10) , 
New keys file (logical unit 9) 


Input Description: None 


Output Description : None 


Process Description : 


1. Initialize file pointer U7 to the value 
stored in U(7) of /SYSCOM/ and use 
AEINIT to initialize /SY3COM/, 
returning input set number in SETNO 
and a non- zero in ERR if any errors 
were found. 

2. If ERR = 0, go to step 4. 

3. Write on U7, "Command terminated due to 
syntax error*" and return to the calling 
routine . 

4. If COMMAS (1)£ 2, meaning there are no 
replacement clauses, then go to step 3. 

5. Use CICFDF (0,, ERR) to complete the 
command interpretation, returning ERR 
non-zero if any errors were found. 

6. If ERR / 0, go to step 3. 

7. Use APSINT to initialize for storing 
deleted keys on file U(10) and new 



keys on file U(9) . Use SETIN1 to 
initialize for returning record ID’s 
via XX INI . Use XXIN1 (RID) to return the 
first record ID in RID. 

8. If RID = 0, return to the calling 
routine. 

9. Use FTFMT (RID, 1, ERR]) to complete the 
buffer formats with information about 
fields whose names occurred in the input 
command, returning ERR non- zero if an 
error occurred. 

10. If ERR i 0, go to step 3. 

11. Use FTCMP to complete starting location 
information in the Working Buffer Forma tj 
WBF in /SY3COM/. 

12. Loop through the Target Buffer Format, 

TBF in /SY3COM/, comparing its column 2 
contents with the values found in column 
2 of the Multilevel' Move Table, MLMT in 
/SY3COM/. When a match is found at 

row I o'f TBF and row K of MLMT, extract 
L = column 1 of row K of MLMT, so that 
L points to the matching row 
of the Source Buffer Format, SBF in 
/SY3COM/. Then transfer the key field 
indicator from SBF(1,L) to TBF(3,I), 
the data base format row number from 
SBF (2 , L) to TBF (4, 1) , the starting 
character position in the data base 
record from SBF(5,L) to TBF(5,I), the 
length of the field from SBF(6,L) to TBF 
(6,1)^ and the type of the field from 
SBF (7,L) to TBF (7, I) . 

13. Use GETREC (1 , RID, STAT) to retrieve 
record RID into row 1 of BUF, the 
record buffer in /SY2C0M/ , returning 
STAT non- zero if there was any problem 
with the retrieval. 



14. If STAT f 0, bypass this record by 
going to step 23. 

15. Use TF0RMW(1,1) to transfer needed 
fields from row 1 of BUF to WBUF, 
difected by row 1 of the Move Table 
Control Table, MTCT in /SY3COM/. 

16. Set EF = 0 and use EXCMDS to execute 

the commands in the Normal Command 

Table, CTBL in /SY3C0M/, returning 

CFLAG as false if there was a failure 

of a relational clause, and returning 

EF non- zero if a command could not 

be executed for some reason. 

) 

17. If CFLAG is false, bypass this record 
by going to step 23. 

18. If EF f. 0, bypass this record by 
going to step 23. 

19. Loop through TBF looking for key fields. 
When one is found (TBF(3,I) f 0), then 
use APSTUP to store the key to be 
deleted on file U(10). 

20. Use TFORMZ(l,l) to transfer changed fields 
from WBUF to row 1 of BUF. 

21. Loop through TBF, and for each key 
field found, use APSTUP to store the 
new key on file U(9) . 

22. Use REPR to replace the old record in 
the data base with the revised one in 
row 1 of BUF. 

23. Use XXINl(RID) to get the next record 
ID into RID. 

24. If RID f 0, meaning there was a next 
record, then go back to step 13. 

25. Use APSCNT to retrieve the number of 
key^ to be changed in the data base. 

26. Use AUPOST to delete the keys stored 
on file U(10). 



27. 


Use AUPOST to add the keys stored on 
file U(9) . 

28. Return to the calling routine. 
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Name: 


CFIND 


Purpose : 


To locate any single character of one string 
within anothet string. 


Linkage : 


e Calling sequence: CALL CFIND (STRA, 

STA, NCA, STRB, STB, NCB, LOCA, LOCB) 

• Common blocks used: None 

• Subroutines or functions used: INDEX 

• Files used: l^onq 


Input Description : STRA = integer array name; start of string 

to be searched 

STA = integer variable; character number of 
STRA at which to begin search 
NCA = integer variable; number of characters 
in STRA to be searched 

STRB = integer array name; start of string 
containing characters for which to search 
STB = integer variable; character number of 
STRB where search characters start 
NCB = integer variable; number of search 
characters in STRB to be used. 


Output Description : LOCA = integer variable; character number in 

STRA where the first find was made. Zero if 
no characters in STRB were found in STRA. 
LOCB = integer variable; character number in 
STRB of the character found. Zero if none 
found. 

Process Description : Successive' 'characters of STRA, starting at 

STA and continuing for NCA characters, are 
individually compared to the characters in 
STRB (via the INDEX function) until a match 
is found or STRA is exhausted. 



Name : 


CHAR 


Modification Purpose 


To allow' conversion of negative numbers, 


Linkage Modification: 


• Calling sequence: No change 

• Common blocks used: No change 

• Subroutines or functions used: The 

Fortran function TABS is now used. 

• Files used: No change 


Input Description Modification: 


V = integer variable; may now contain 
values less than zero. 


Output Description Modification : 


STR = integer array name; leftmost 
position will contain the minus 
character if the input value in V 
was negative. 


Process Description Modification : Convert the absolute value of V to a 

character string by the original process. 
Then, if V is negative, store the minus 
character as the leftmost character of 
the output field. 
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Name : 


CICFDF 


Purpose : To direct the command interpretation phase 

of the CF, DF, and JF commands. 

Linkage : e Calling sequence: CALL CICFDF(IND, ERR) 

e Common blocks used: SY3C0M, CLTBL 

• Subroutines or functions used: CFIND, 

RPCLPR, RLCLPR 

t Files used: None 

Input Description : IND = integer variable; indicator for which 

command is being processed. Set zero for 
CF command. Set non- zero for DF or JF 
commands . 

Output Description : ERR = integer variable; error indicator. 

Returned zero if no errors found. Returned 
non- zero if any error is found. 

Process Description : 1. The error indicator, ERR, is initialized 

to 0. The replacement expression 
found indicator, REF, is initialized to 0. 
The commas pointer, CP, is initialized 
to 2 . 

2. If IND t* 0, CP is changed to equal 3. 

3. The first character pointer, FC, is 
calculated = COMMAS (CP) +1 . The number 
of characters, NC, between commas is 
calculated = COMMAS (CP+1) -FC . 

4. Use CFIND to check the character at FC 
for a single quote mark, a number sign, 
or a numeric character. If any of these 
are found, go to step 9. 

5. Use CFIND to check all NC characters for an 
arithmetic operator, parenthesis, equal 
sigh or period. If one of these is found, 
go to step 7. 



6. Set ERR = 1 and return to the calling 
routine . 

7. If an equal sign was found, go to step 
14. 

8. Since no equal sign was found, the 
clause must he a relational clause. 

Since all relational clauses are to 

be before replacement clauses, check REF 
to see if a replacement clause has been 
found. If REF f 0, go to step 6. 

9. Use RLCLPR(FC, NC, ERR) to process the 
relational clause and return ERR 

non- zero if errors were found, 

10. If ERR ^ 0, go to step 6. 

11. Increment CP by 1. If CP f COMMAS (1), 
go to step 3. 

12. If IND f 0, return to the calling routine 

13. The CF command must have a replacement 
clause, so if REF = 0, go to step 6, 
otherwise return to the calling routine. 

14. Set REF = 1 and use RPCLPR (FC, NC, I , IND 
ERR) to process the replacement clause. 

I was returned previously from CFIND as 
the location of the equal sign, and ERR 
will be returned non- zero from RPCLPR 
if any errors are found. 

15. If ERR f 0, then go to step 6, otherwise 
go to step 11. 



Name: 


CIMAIN 


Purpose: 


To direct control to the proper command 
routine . 


Linkage: 


Input Description : 


Output Description : 


• Calling Sequence: CALL CIMAIN (STRING) 

• Common blocks used: SYSCOM, SECCOM - 

• Subroutines or function^ used: 
CISUB1, CISUB2 , CISUB3 , CISUB4 , 

CISUB5 , CISUB6 , CLOSEP, JPRPCR, 

MODE, STATUS, SUBSTR, VERIFY 

• Files used: None 

STRING = alphanumeric character string 
containing the command line syntax. 

None 


Processing Description : 


1. Set SECURE (17 ) =1 

2 . Search command line for blank 
character position, if found 
continue with next step, else 
return to calling routine. 

3. Store command line in STR, and 
process next step. 

4. Compare command in CMD with each 
element of the command table 
[SWITCH (K) ] , if CMD = SWITCH (K), 
go to the next step, else write 

’INVALID COMMAND’ message, then go 
to step 20. 





5. 


Verify first command issued is 
a BE command. If SECURE (K) ^ 1 , 
go to step 20, else continue with 
the next step. 

6. If k<6, go to step 12; if k>9, 

go to step 7, else call CISUBl (k) , 
then go to step 19 . 

7. If k>16, go to the next step, else 
CALL CISUB2 (k) , then go to step 
19. 

8. If k>19, go to the next step, else 
CALL CISUB3 (k) , then go to step 19. 

9. If k>24, go to the next step, else 
CALL CISUB4 (k) , then go to step 19. 

10. If k>37,' go to the next step, else 
CALL CISUB5 (k) , then go to step 19 . 

11. Call CISUB6 (K,FLAG) , then go to 
step 18. 

12. If k^l, go to the next step, else 
go to step 19. 

13. If k^2 , go to the next step, else 
CALL STATUS (0), then go to step 19. 

I r 

14. If k^3, go to next step, else CALL 
MODE, then go to step 19. 

15 . If k?44 , go to the next step else 
set CIND=0, then go to step 17. 

16. Set CIND=1. 

17. Use JPRPCR(CIND) to' process the 
RP, or JP commands, indicated from 
step 15 or 16, then go to step 19. 
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18. 


If FLAG <1, go to next step, else 
CALL SUBSTR, which stores STR into 
STRING. Return to step 1. 

19. Call CLOSEP, process next step. 

20. Return to calling routine. 







Name : 


CIRP 


Purpose : 


Linkage : 


To direct the activities of parsing the 
command line, building tables, and 
building buffer formats for the RP’ and JP 
commands . 

• Calling sequence: CALL CIRP(CIND, 

RECID, ERR) 

• Common blocks used: SY3C0M, CLTBL 

• Subroutines or functions used: COMSTR, 

CPIND, ADDFN , AEPR, ADDLT, INDEX, 
INPARM, FTFMT, FT CMP 

• Files used: None 


Input Description : CIND = integer variable; command indicator. 

Set 0 for RP command or non- zero for JP 
command. 

RECID = integer variable; contains the 
record ID (accession number ) of the 
first record of the input set. 


Output Description : ERR = integer variable; error indicator. 

Returned zero if no errors are found 
and non- zero if any error is found. 


Process Description : 


1. Counters and pointers are initialized. 

2. If there are some clauses in the command 
go to step 4. 

3. Set ERR = 1 and return to the calling 
routine . 

4. If there are no characters in the clause 
go to step 3. 

5. If this clause is the first one and it 
is not a BY clause, then go to step 3. 

6. If this clause is not a BY clause and 
not the first clause, then go to step 16 



7. If this BY clause is occurring after 
an E§E BY clause has occurred, then go 
to step 3. 

8. If this is the sixth BY clause, then 
go to step 3. 

9. If there is no grouping field name for 
this BY clause, then go to step 3. 

10. If this is an E§E BY clause, then if 
there are no report expressions, then 
go to step 3, otherwise store zeroes 
in the first 3 columns of the BY 
Processing Table, BPT in /SY3COM/, 
for this BY clause and go to step' 15. 

11. Use CFIND to check the grouping field 
name for arithmetic operators or 
parentheses. If any are found, go 

to step 13. 

12. Set columns 2 § 3 of BPT = 0 for this 
BY clause, use ADDFN to store the 
grouping field name in the Working 
Buffer Format, WBF in /SY3C0M/, store 
the row number returned by ADDFN into 
column 1 of BPT for this BY clause, 
and go to step 15. 

13. Store the negative of the next 
available row number of WBF in column 1 
of BPT for this BY clause. Store $R 

in column 2 of that row of WBF. Store 
the next available row number of the 
Normal Command Table, CTBL in 
/SY3C0M/, into column 2 of BPT for 
this BY clause. Store 4 and-1 into 
columns 4 & 5 of the $R row of WBF. 

14. Use AEPR to generate the commands which 
evaluate the arithmetic expression. 

If AEPR found any syntax errors, go 
to step 3. Calculate the number 
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of commands generated by AEPR and 
store this number into column 3 of 
BPT for this BY clause. 

15. Move to the next pair of commas. If 
there is none, go to step 29, otherwise 
go back to step 4. 

16. If this report expression is not a 
text type, go to step 18. 

17. Use ADDLT to create an entry in WBF for 
this text literal and store values in the 
Target Buffer Format, TBF in /SY3C0M/, 

to cause this text to be printed at the 
start or conclusion of this BY clause 
(depending on whether single or double 
quote mark characters were used) . Go 
to step 15. 

18. Compare the beginning characters of the 
report expression with an internal table 
of function names. If no match is 
found, go to step 21. 

19. If this function reference is found 

in an E§E BY clause, then go to step 3. 

20. Use ADDFN to create the field name 
reference in WBF for the field name 
specified in the function. Create a 
$R row in WBF for the results of the 
function to be carried and create a 
reference in TBF to get the results 
printed upon the conclusion of this 
BY clause. Based on which function 
was specified, store an initialization 
value in column 1 of the $R row of WBF. 
Then go to step 15, 

21. Use INDEX to check for an equal sign 
in the report expression. If there 
is one, go to step 24. 

22. This report expression is only a field 
name. If it has greater than 12 
characters, go to step 3. 



23. Use ADDFN to create a reference to the 
field name in WBF, and create an entry 
in TBF to cause the value of this field 
to be printed at the beginning of this 
BY clause. Then go to step 15. 

24. Use CFIND to determine if this report 
expression begins with an I or a D. 

If it begins with neither, then go 

to step 3. 

25. Use INPARM to convert the input field 
width to a binary integer. If it is 
greater than 99, then go po step 3. 

26. Create a' results field ($R) in WBF 
and a target ‘field for printing in 
TBF. Store’ the target field type in 
TBF as a 1 or a 2 based on whether the 
report expression began with an I or a 
D, respectively. 

27. Initialize column 4 of BPT for this BY 
clause if it has not already been done. 

28. Use AEPR to process the arithmetic 
expression to the right of the equal 
sign, and accumulate the number of 
commands generated into column 5 of 
BPT for this BY clause. Then go to 
step 15. 

29. If CIND = 0, then set NLVLS , the number 
of data base levels, = 1, otherwise 
set NLVLS = 2. 

30. Use FTFMT CRECID, NLVLS, ERR) to 
search the data base formats, 
collecting field information for WBF 
and SBF, the Source Buffer Format in 

/ SY3COM/ . If ERR is returned non- zero, 
go to step 3. 

31. Now that the type and length of data bas 
fields are known, this information is 
used to complete needed portions of WBF 



and TBF where just field names and 
functions with field names are the 
report expressions. 

32. Where function results are called for 
in WBF, a command is entered in the 
Function Command Table, FCTBL in 
/SY3C0M/ . 

33. Use FT CMP to generate starting character 
positions in WBF and initial values in 
WBUF . 

34. Use FTCMP to generate starting character 
positions with two spaces between fields 
in TBF. 

35. Return to the calling routine. 



Name : 
Purpose: 

Linkage: 


Input Description; 


Output Description : 

Processing Description: 

2. If LKj^l, go to step 3, else use 
CFCR to process the CF command/ 
then go to step 9. 

3. If LK^2 go to step 5, else process 
the next step. 

4. Set CIND = 0, indicates the DF 
command is being processed, go to 
step 7. 

5. If LKf^3 go to step 8, else go to 
the next step. 

6. Set CIND = 1, indicates the JF 
command is being processed, go to 
next step. 


CISUB1 

• To direct selection of the appro- 
priate subroutine (s) for execution 
of the associated command. 

• Calling sequence: Call CISUBI (k ) 

• Common blocks used: none 

• Subroutines or functions used: 
CFCR, IFDFCR, END 

• Files used: none 

k = integer variable; indicator for 
which command is being processed. 

Set k=6 for CF command. Set k-7 for 
DF command. Set k=8 for JF command. 
Set k=9 for EN command. 

None 

1. Set LK = k-5 



7. 


Use JFDFCR to process the DF or 
JF command indicated from step 4 
or 6. Go to step 9. 

8. If LK=^4 go to step 9 else use END 
to process the EN command. 

9. Return to calling routine. 
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Name: 


CISUB2 


Purpose : 


Linkage: 


Input Description : 


To direct selection of the appropriate 
subroutine (s) for execution of the 
associated command. 

• Calling sequence: Call CISUB2 (k) 

• Common blocks used: none 

• Subroutines or functions used: 
JNSNCR, SELECT, COMBIN, HEADER, 
STCNT, DELETE 

• Files used: none 

k = integer variable; indicator for 
which command is being processed. 

Set k=10 for SN command. Set k=ll 
for JN command. Set k=12 for SK 
command. Set k=13 for CO command. Set 
k=14 for HD command. Set k=15 for 
SC command. Set k=16 for DE command. 


Output Description: None 


Processing Description: 1. 

2 . 

3. 

4. 

5. 


Set LK= k-9 . 

If LK=^1, go to step 3, else set 
CIND=0, go to step 4. 

If LKj^2, go to step 5, else set 
CIND=1, go to next step. 

Use JNSNCR to process the SN or 
JN command, then go to step 10. 

If LK^3, go to step 6, else use 
SELECT to process the SK command. 
Then go to step 10 . 
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6 . 


If LK^4, go to step 7 else use 
COMBIN to process the CO command. 
Then go to step 10. 

7. If LK^5, go to step 8, else use 
HEADER to process the HD command. 
Then go to step 10. 

8. If go to step 9, else use 

STCNT to process the SC command. 
Then go to step 10. 

9. If LK^7, go to step 10, else use 
DELETE to process the : DE command. 

10 . Return to calling routine . 


^3 



Name: 


CISUB3 


Purpose : 


Linkage : 


Input Description : 


Output Description: 


To direct selection of the appropriate 
subroutine ( s ) for execution of the 
associated command. 

i 

• Calling Sequence: Call CISUB3(k) 

• Common blocks used: SECCOM 

• Subroutines or functions used: 
BEGIN, CLEANP, UNLOCK, SPLUS , 

SMINUS 

• Files used: None 

k= integer variable, indicator for 
which command is being processed. 

Set k=17, for BE command. Set k=18, 
for S+ command. Set k=19 , for S- 
command. 

None 


Processing Description : 


1. Set LK= k-16 . 

2. If LK^l, go to step 3, else use 
BEGIN, CLEANP ; and UNLOCK to 
process the command line. Then 
go to step 5. 

3. If LK^2 , go to step 4, else use 
SPLUS to process the S+ command. 
Then go to step 5. 

4. If LK^3, go to step 5 else use 
SMINUS to process the S- command. 

5. Return to calling routine. 





Name: 


CISDB4 


Purpose : 

Linkage : 

Input Description: 

Output Description : 
Processing Description : 


To direct selection of the appropriate 
subroutine (s) for execution of the 
associated command. 

• Calling Sequence: Call CISUB4 (k) 

• Common blocks used: None 

• Subroutines or Functions: SORTP, 

T JUMP , CMDRI, MOVSEG 

• Files used: None 

k- integer variable; indicator for 
command being processed. Set k=20, 
for SO command. Set k=22, for JT 
command. Set k=21, for JS command. 

Set k=22, for JT command. Set k=23, for 
CM command. Set k=24, for MO command. 
None 


1. Set LK= k-19 

2. If LK^l, go to step 3, else set 
CIND=1 , go to step 4. 

3. If LK^2 , go to step 5, else set 
CIND=2 , go to next step. 

4. If CIND=1 process SORTP. 

If CIND=2 process SORTP, go to 
step 8, 

5 . If LK^3 go to step 6 , else use 
TJUMP, then go to step 8. 

6. If LK^4 , go to step 7, else use 
CMDRI to process the CM command. 
Then go to step 8. 



7 


. If LK^5 , go to step 8, else use 
MOVSEG to process the MO command. 

8. Return to calling routine. 



Name: 


CISUB5 



To direct selection of the appropriate 
subroutine ( s ) for execution of the 
associated command. 

• Calling Sequence: Call CISUB5(k) 

• Common blocks used: None 

• Subroutines or functions used: 
i EXPAND, DISPLA, XREF, SEUNIV, 

- SELREC, SPCSET, FORMM, DISPDD, 

REAP, PARSEP,' PARSEC , ADDREC 

k- integer variable, indicator for 
command being processed. 

Set k-25, for EX command. 

Set k=26, for PA command. 

Set k=27, for DI command. 

Set k=28 , for XR command. 

Set k=29 , for SU command. 

Set k=30, for SR command. 

Set k-31, for SS command. 

Set k=*32, for DD command. 

Set k^S , for FO command. 

Set k=34, for RF command. 

Set k=35, for GP command. 

Set k=36, for GC command. 

Set k=37, for AR command. 


Output Description: 


None 



1. Set LK= k-24. 

2. If LK^l, go to step 3, else set 
CIND=0 , go to step 4 . 




3. 


If LK^2 , go to step 5 , else set 
CIND=1, go to next step. 

4. Use EXPAND to process the EX or 
PA command, indicated from step 
2 or 3. Then go to step 16. 

5. If LK^3, go to step 6, else use 
DISPLA, to process the DI command. 
Then go to step 16. 

6. If LK^4, go to step 7, else use 
XREF to process the XR command. 
Then go to step 16. 

7. If LK^5, go to step 8, 31se use 
SEUNIV to process the SU command. 
Then go to step 16. 

8. If LK^6, go to step 9, else use 
SELREC to process the SR command. 
Then go to step 16. 

9. If LK^7, go to step 10, else use 
SPCSET to process the SS command. 
Then go to step, 16. 

10. If LK^8, go to step 11, else use 
FORMM to process the DD command. 
Then go to step 16. 

11. If LK^9, go to step 1-2, else use 
DISPDD to process the FO command. 
Then go to step 16. 

12. If LK^IO, go to step 13, else use 
REAF to process the RF command. 
Then go to step 16. 

13. If LK^ll, go to step 14 else use 
PARSEP to process the GP command. 
Then go to step 16. 




b*> 



14. If LK^12 , go to step 15 else use 
PARSEC to process the GC command. 
Then go to step 16. 

15. If LK^13, go to the next step, else 
use ADDREC to process the AR 
command . 

16. Return to calling routine. 





CISUB6 


To direct selection of the appropriate 

j 

subroutine (s) for execution of the 
associated command. 

• Calling sequence: Call CISUB6(k, 

FLAG) 

• Common blocks used: None 

• Subroutines or functions used: 
CAUFIL, XPOST, ADDKEY, DBPRO, 
DELKEY, CRESTS , DELREC, REPKEY, 
REPREC . 

m Files used: None 

Input Description: k= integer variable , indicator for 


which command 

is 

being processed. 

Set 

k=38 , 

for 

AF 

command. 

Set 

k=39 , 

for 

UF 

command. 

Set 

k=40. 

for 

UP 

command . 

Set 

k=41. 

for 

PO 

command . 

Set 

k=42 , 

for 

VP 

command . 

Set 

k=43 , 

for 

AK 

command . 

Set 

k=44 , 

for 

DK 

command . 

Set 

k=45 , 

for 

RE 

command. 

Set 

k=46 , 

for 

KY 

command. 

Set 

k=47 

for 

NK 

command. 

Set 

k=4 8 , 

for 

DS 

command. 

Set 

k=4 9. 

for 

DR 

command . 

Set 

k=50 , 

for 

RK 

command. 

Set 

k=51 , 

for 

RR 

command . 


Name : 
Purpose : 

Linkage : 


32359 



Output Description : 


FLAG = Integer variable; where 
FLAG = 1 means do not allow data base 
to be altered. 

FLAG - 0 means do allow data base to 
be altered. 

FLAG - 2 means process input line as 
next command. 


Processing Description; 1. 

2 . 

3. 

4. 

5. 

6 . 

7. 


Set LK= k-37 , and set FLAG=0 , go 
to next''" step. 

If LK^l, go to step 3, else set 
CIND=1, go to step 4. 

If LK^2 , go to step 5, else set 
CIND=2, go to next step. 

Use CAUFIL to process the AF or 
UF command, indicated from step 
2 or 3. Then go to step 17. 

If LK^3 , 4 , or 5 go to step 6 , 
else use XPOST to process the 
UP, PO, or VP command. Then 
go to step 17. 

If LK^6, go to step 7, else use 
ADDKEY to process the AK command. 
Then go to step 17. 

If LK^7, go to step 8, else use 
DBPRO (FLAG) to pick up variable 
FLAG. If FLAG^O go to step 17, 
else use DELKEY to process the 
DK command. Then go go step 17. 

If LKf^8, go to step 9, else set 
CIND = 1 and go to step 13. 
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9. 


If LK^9 , go to step 10, else set 
CIND=2, go to step 13. 

10. If LK^IO, go to step 11, else set 
CIND=3, go to step 12. 

11. If LK^ll, go to step 14, else set 
CIND=4, go to next step. 

12. Use DBPRO (FLAG) to pick up variable, 
FLAG. If FLAG ^ 0 go to step 17, 
else next step. 

13. Use CRESTS (CIND) to process the RE, 
KY, NK, or DS command. Then go to 
step 17. 

14. If LKj4l2 , go to step 15, else use 
DBPRO(FLAG) to determine FLAG 
status. If FLAG^O, go to step 17, 
else use DELREC to process the DR 
command. Then go to step 17. 

15. If LK^13, go to step 16, else use 
REPKEY to process the RK command. 
Then go to step 17. 

16. If LK^14 , go to step 17, else use 
REPREC to process the RR command. 

17. Return to calling routine. 




Name: 


CRESTS 


Purpose : 


To parse the command line for the 
RE, KY, NK, and DS commands. 


Linkage : 


Input Description; 


Output Description : 


• Calling sequence: CALL CRESTS (IFN) 

• Common blocks used: SYSCOM, SY2C0M 

m Subroutines or functions used: 

CLOSEP, INDEX, INPARM, LODFMT, 
RESTRX 

• Files used: None 

IFN = integer variable, indicator 
for command being processed. 

If IFN=1, process RE command. 

If IFN=2, process KY command. 

If IFN=3, process NK command. 

If IFN=4, process DS command. 

None 


Processing Description: 


1. Search the command line for 
comma, if a comma is found a 
non-zero value is assigned to 
variable k which indicates the 
numeric location of the comma 
in the command line. If a 
comma is not found, variable k 
is set to zero. 

2. If k=0 go to step 9, else 
continue with the next step. 

3. M = integer variable represent- 
ing the set number within the 
command line. If m=0 go to step 
8, else go to the next step. 



4. 


If IFNM4 , go to step 9, otherwise 
verify the existence of a format 
number, convert to integer, and 
store the converted integer into 
FMTID (2 ) . 

5. Call LODFMT, process next step. 

6. Use RESTRX(M, IFN) to process the 
appropriate command, with (M) 
containing the set number and 
(IFN) the proper command switch. 

7. Call CLOSEP, continue with next 
Step. 

8 . Return to calling routine . 

9. If IFN^4; this implies the DS 
command was attempted, however 
a syntax error exists in the 
command line, therefore go to 
step 8. If IFN=4 , k — integer 
value of first blank. This ^ 
value is used to determine the 
number of characters to convert 
from alpha to integer. Return 
to step 3. 
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Name: 


DBPRO 


Purpose : 


To prevent accidental alteration of the 
data base for certain commands. 


Linkage : 


Input Description: 


Output Description: 


• Calling Sequence: Call DBPRO (FLAG) 

• Common blocks used: SYSCOM 

• Subroutines or functions used: COMSTR, 

SUBSTR, VERIFY 

© Files used: Logical units U(7) and 

U(13). 

A command line containing the input command 
line plus a "Yes," "Y, " "No," or "N" 
after the command or a command line 
containing the input line then another 
input line containing a "yes" or "No" 
in response to an output query. 

FLAG = integer variable; where FLAG = 1 
means do not allow data base to be 
altered and FLAG=0 means do allow data 
base to be altered. 

FLAG=2 means the current command is 
ignored, but process array STR as next 
command . 


Process Description : 


1. Initialize FLAG to zero. 

2. Use VERIFY to verify the existence 
of a non -blank character at or 
beyond position 60 of the command 
line. Variable k is set. 

3. If k=0 go to step 6. If k=^0, use 
COMSTR to compare the character at 
k of STR with a ’Y' . 



4. 


If COMSTR=0, return to the calling 
routxne . 

5. Use COMSTR to compare the character 
at k of STR with a ' N ' . If COMSTR= 

0, go to step 14. 

6 . Write the command line to the message 
file with a 'YES or NO?' query. 

7. Read the response to the query from 
the command file. 

8 . Use VERIFY to check for a non-blank 
character in response to the query. 

9. If k=0 , go to step 14. 

10. Use COMSTR to compare the response 
to the query with l YES ! . If C0MSTR= 
0, return. 

11. Use COMSTR to compare the response 
to the query with 'NO 1 . If COMSTR= 

0, go to step 14. 

12. Set FLAG=2. 

13. Use SUBSTR to move the response 
data into STR/ and to return to 
the calling routine. 

14. Set FLAG=1 . 

15. Return to the calling routine. 
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Name: 


DISFMT 


Purpose : 


To direct output to appropriate 
file unit. 


Linkage : 

• 

Calling sequence: 
(ID,L , STR) 

CALL DISFMT 


• 

Common blocks used: 

SYSCOM 


e 

Sub routines or functions used: 
None 


• 

Files used: U(12), 

U(8) 

Input Description: 

ID 

= integer variable. 

indicator 


for file unit assignment. 

If ID=1 assign U7=U(12) 

If ID^l assign U7=U(8) 

L = integer variable, indicates 
length of input string STR. 

STR = alphanumeric character 
string. 


Output Description: 

STR 

Processing Description: 

1 . 


2. 


3. 


4. 


= alphanumeric character string. 

If ID=1 , set U7=U (12) and 
process the next step. 

If ID^l, set U7=U(8) and process 
the next step. 

LL=L, stores input length into 
LL, go to the next step. 

If LL>30 , set LL=30 # 



5. If U7^7, write the contents 
of STR with a format length 
of 30 words to unit = U7. 

6. If U7=7, write the contents 
of STR with a format length 
of 15 words, process next 
step. 

7. Return to calling routine. 





Name : 


DTEINT 


Purpose : 


Linkage : 


Input Description: 


Output Description : 


Process Description: 


To convert date format to/from a binary 
integer . 

• Calling sequence: 

CALL DTEINT (FUNC, INT, STR, ST, NC) 

• Common blocks used: None 

• Subroutines or functions used: 

SUBSTR, CHAR, INPARM, MOD 

• Files used: None 

FUNC = Ihdicator , if FUNG = 0, converts 
character string (STR) to an integer (INT) . 
If FUNC f 0, converts an integer to a 

character string (STR) . 

INT = Integer input. 

STR = character string input. 

ST = starting position of character string. 
NC = number of characters of STR to be 
converted . 

INT = Integer output from converted 
character string. 

STR = character output from input integer. 

In addition to the input variables, this 
routine contains an internal Julian 
day conversion table DTAB . DTAB is a 
one-dimensional array with each element 
representing the total number of days from 
the base year to year * N 1 , where N is the 
relative position of the array element 

■ i 

representing an offset from the base 
year. If FUNC indicates an integer is 
to be converted to a character string the 
input integer date is tested for an invalid 
date. If this date is greater than the 



greatest , value of DTAB, the input date 
is replaced with that particular DTAB 
element and the conversion process 
continued. However if the integer date 
is less than or equal to zero, blanks 
are moved to the output string CSTR) . 
Assuming the integer date is greater than 
zero, DTAB is searched until a value 
that is greater than or equal to the input 
integer is found. The input integer minus 
‘the previous table value gives the day 
segment of the Julian date. The year 
segment is then calculated by adding the 
base year to the DTAB index minus a 
constant of two. Having converted the 
integer date l^o a Julian date format, the 
results are then converted to an 
alphanumeric character string by use of 
the CHAR subroutine. To convert from an 

■alpha Julian date format the year" and - 
day segments are calculated. The year 
portion is subtracted from the base year 
to serve as an index to pick up the 
appropriate DTAB element. Once this 
element is obtained this value is added to 
the day segment to produce the output 
integer. 



Name: 


EXCMD 


Purpose : 


To perform the operations specified in one row 
of a command table. 


Linkage : 


• Calling sequence: CALL EXCMD (_TBL, ROW, ERR, 

CFLAG) 

• Common blocks used: SY3COM 

• Subroutines or functions used: SUBSTR, 

DTE I NT, INPARM, CHAR, COMSTR 

© Files used: None 


Input Description : TBL = integer array name; starting location of 

the table containing the command to be executed. 
ROW - integer variable; contains the row number 
of TBL where the command to be executed is 
stored. 


Output Description : ERR = integer variable; contains zero on normal 

command execution or non- zero when command 
cannot be executed. 

CFLAG = logical variable; contains .TRUE, 
normally, but is set to .FALSE, when the 
command is a logical comparison and the 
comparison fails. 

Process Description : Refer to the Command Table and Command Operations 

Table layouts as a supplement to this 
description. The value retrieved from 
the references in columns 1-4 of the command 
table will be referred to as 0PND(1), OP, 0PND(2J , 
and RESULT, Respectively, in this description. 

1. ERR and CFLAG are initialized to zero and 

true, OP is retrieved from TBL C 1 2 > ROW), 
OPND(l) T s pointer, P, is retrieved from 
TBL (1, ROW), and N is initialized to one. 



2. If OP > 0 and < 17, go to step 4. 

3. Set ERR = 1 and return to calling routine. 

4. If OP > 10, go to step 24. 

5. If P = 0, go to step 3. 

6. If P < 0, negate P, retrieve OPND(N) from 

REG (P) , an array in /SY3COM/, and go to 
step 10. 

7. Retrieve OPND(N) 's type from column 5 at 
row P of the' Working Buffer Format, WBF, 
in /SY3COM/. * 

8. If OPND(N)’s type = 0, then if OP < 5, then 
go to step 3, otherwise if N = 2, then go 
to step 3, otherwise go to step 20. 

9. Convert the value of OPND(N) from the 
Working Buffer, WBUF in /SY3COM/, based 
on the type, using either subprogram 
SUBSTR (type < 0, a "binary integer) 

INPARM (type = 1, a numeric character 
string), or DTEINT (type = 2, a date 
character string) . 

10. If N = 1, then set N =2, retrieve a new 

P from TBL (3, ROW), and go to step 5. 

11. If OP > 4, go to step 22. 

12. Perform the arithmetic operation specified 
by OP, using OPND(i) and 0PND(2) and storing 
the result in RESULT. If 0PND(2) of a divide 
operation = 0, then go to step 3. 

13. Retrieve a new P for RESULT from TBL (4, ROW). 

14. If P = 0, go to step 3. 

15. If P < 0, negate P, store RESULT in REG(P), 

and go to step 19. 

16. Retrieve RESULT’S type from column 5 at row 
P of WBF. 

17. If type = 0, go to step 3. 

18. Convert the value in RESULT into WBUF 
based on the type, and using subprogram 
SUBSTR (type < 0) , CHAR (type = 1) , or 
DTEINT (type = 2). 




19. 

20 . 


Return to the calling routine. 

If 0PNDC2)’s pointer in TBL (3, ROW) 

= 0, or if 0PND(2)’s type f 0, then 
go to step 3. 

21. Perform an alphanumeric comparison 
between 0PND(1) and OPND (2) and set I to 

be negative, zero, or positive according 
to whether OPND(l) < OPND (2), OPHD(l) = 

OPND ( 2 ) , or OPND(l) > OPND ( 2 ) , respectively. 
Go to step 23. 

22. Perform arithmetic comparison by setting 
I = OPND (l) -OPND (2 ) . 

26. Leave CFLAG = true or change CFLAG = false 
based on the following table and then 
return to calling routine: 



I < 0 

1 = 0 

I > 0 

OP = 5 

true 

false 

false 

OP = 6 

true 

true 

false 

OP = 7 

false 

true 

false 

OP = 8 

true 

false 

true 

OP = 9 

false 

true 

true 

OP = 10 

false 

false 

true 

If OP = 

16, go 

to step 40 

• 


25. Retrieve 0PND(2)’s pointer, P2, from 
TBL (3 , ROW). If P2 = 0, go to step 3. 

26. If OP > 13, go to step 35. 

27. If OPND (2) in WBUF is blanks, go to step 
39. 

28. Retrieve 0PND(1) from WBUF using SUBSTR. 

29. If OP = 11, set 0PNDI2) = OPND(l) +1, 
and go to step 34. 

30. Retrieve OPND (2) from WBUF, converting 
based on its type and using 1NPARM or 
DTEINT . 

31. Perform a numeric comparison between 
OPND (1) and OPND C 2) . If 0PND(1) = 
OPNDC2), go to step 39. 




32. If OPNDOL) > OPND(2), then if OP = 13, 
then go to step 39, otherwise go to 
step 34. 

33. If OP = 12, then go to step 39. 

34. Use SUBSTR to store 0PND(2) into 
OPND(l)'s place in WBUF and go to step 
39. 

35. Perforin an alphanumeric comparison between 
0PND(1) and 0PND(2). If 0PND(1) = 0PND(2) , 
to to step 39. 

36. It 0PND(1) > OPND (2) , then if OP - lb, 
then go to step 39, otherwise go to step 
38. 

37. If OP = 14, go to step 39. 

38. Use SUBSTR to store 0PND(2)’s character 
string m WBUF into OPND(i)’s character 
string in WBUF. 

39. Return to calling routine. 

40. If P = 0, go to step 3. 

41. If P < 0, negate P, retrieve RESULT from 
REG(P), and go to step 13. 

42. Retrieve 0PND(l)’s type from column 5 

at row P of WBF. If type = 0, go to step 
44. 

43. Convert OPND(l) from WBUF into RESULT 
based on type using subprogram SUBSTR 
(type < D) , INPAKM (type = 1) , or 
DTEINT (type =2). Go to step 13. 

44. Retrieve RESULT’S pointer, P2, from TBL 
(4, ROW). if P2 = 0, go to step 3. 

45. Transfer OPND(l)’s character string in 
WBUF to RESULT'S location in WBUF, using 
SUBSTR, and then to go step 39. 






Name : 


EXCMDS 


Purpose : 


To execute a sequence of related command 
rows in a command table. 


Linkage : 


• Calling sequence: CALL EXCMDS (TBL, SR, NR 

ERRFNC, CFLAG) 

• Common blocks used: SY3COM 

• Subroutines or functions used: EXCMD, 

SUESTR 

9 Files used: None 


Input Description : TBL = integer array name; starting location 

of the table which contains the commands to 
be executed. 

SR = integer variable; starting row number 
within the command table. 

NR - integer variable; number of rows to be 
executed. 

ERRFNC = integer variable; indicator for what 
procedure is to be followed if an error occurs 
Zero means do nothing to the results field: 
non- zero means store blanks or zero in the 
results field (depending on field type) . 

Output Description : ERRFNC = integer variable; set to zero if no 

errors were encountered. Set to one if an 
error was encountered. 

CFLAG = logical variable; contains .TRUE, 
except when a relational comparison command 
has failed, then it contains .FALSE.. 

Process Description : 1. The last row to be processed is calculated 

into LR, ERRFNC is saved in EF and set = 0 
and I is initialized to SR. 

2 . A call is made to subroutine EXCMD to 
execute the command at row I . 



3. If CFLAG from EXCMD is returned with, a 
value of false, return immediately to 
the calling routine. 

4. If the error indicator from EXCMD is 
returned non- zero, go to step 7. 

5. Increment I by 1. 

6. If I > LR, return to the calling routine. 

7. Set ERRFNC =1 and retrieve P from 
column 5 of the current row of the 
command table. P is the row number to 
which a jump should be made. 

8. If EF = 0, go to step 13. 

9. Retrieve the result pointer, PI, from 
column 4 of row P-1 of the command table. 

10. If PI = 0, go to step 13. 

11. Retrieve the result type from column 5 
of row PI of the Working Buffer Format. 

12. Based on type, store binary zeroes 
(type < 0), alpha zeroes (type > 0) , or 
blanks (type = 0) into the result location 
in the Working Buffer. 

13. Set I = P and go to step 6. 
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Name : 


F0RM 


Purpose : 


To store a new format definition into 
the data base. 


Linkage : 


Input Description: 


• Calling sequence: CALL F0RM(DBRID,LEN) 

• Common blocks used: SYSC0M, SY2C0M 

• Subroutines or functions used: ADDR, 

CL0SEP, C0MSTR 

• Files used: Logical unit U(ll) 

DBRID = integer variable; data base record 
ID. This is the format number. 

LEN = integer variable; length (in integer 
*4 words) of the record which the new 
format describes. 


Output Description: None 


Process Description : 1. The maximum number of fields is 

initialized to 27, the actual number 
of fields is initialized to 0, the 
internal buffer pointer is initialized 
for the first field description, and 
the logical unit for reading the input 
data is initialized to U(ll). 

2. A loop is executed (up to the maximum 
number of fields allowed) which reads 
the ID number, name, start character, 
length, type, and key code for each 
field, storing the information into 
the internal buffer, BUF, and incre- 
menting the buffer pointer and actual 
field counter for each read. If 
the beginning three characters of any 
field name are "END," the loop is 
terminated. 
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. The acutal number of .words used in 
the internal buffer is calculated and 
stored in BUF(l). BUF (2) is set to 
0. BUF ( 4 ) is set to the input variable 
LEN, and BUF (8) is set to the actual 
number of fields read from the input 
data. 

4. ADDR is called to store a record of 
length BUF(l), beginning at BUF (2), 
into data base record DBRID. CL0SEP 
is called to flush internal 1/0 page 
buffers . 

5. FMTID(l) and FMTID (2 ) in /SY2C0M/ are 
set to 0 to cause any subsequent 
command that uses a format to go to 
the data base to retrieve the current 
definition of that. format. 

6 . Control is returned to the calling 
routine . 





Name : 


FTCMP 


Purpose : To calculate starting character positions 

for fields in generated formats. 

Linkage : e Calling sequence: CALL FTCMP (A, NS) 

• Common blocks used: SY3COM 

• Subroutines or functions used: SUBSTR 

© Files used: None 

Input Description : A = integer array name; starting location of 

the array which contains the format to be 
completed . 

NS = integer variable; the number of spaces 
to be inserted between fields. 

A = integer array name; starting location of 
the array which contains the completed format. 

1. The start character counter, SC, is 
initialized to one, as is the row counter, 
ROW. 

2. The length of the field at ROW is transferred 
from A (6, ROW) to L. 

3. If L = 0, then processing is finished, so 
return to the calling routine. 

4. If A(2, ROW) contains $T then bypass start 
character calculations for this row [since 
text remains in the command line instead of 
being transferred to the Working Buffer, 

WBUF in / SY3COM/) and go to step 7. 

5. If A(2, ROW) contains $L or $R, then use 
SUBSTR to initialize WBUF from A(l, ROW) . 

6. Store SC into A(5, ROW) and calculate the 
next SC = SC+L+NS. 

7. Increment ROW by one and go to step 2. 
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Name: 


FTFMT 


Purpose : 


Linkage : 


Input Description : 


Output Description : 


Process Description : 


To retrieve information from formats associated 
with records in the same family tree. 

• Calling sequence: CALL FTFMT (RECID, NLVLS , 

ERR) 

e Common blocks used: SYSCOM, SY2C0M, SY3COM 

• Subroutines or functions used: LOCREC, GET, 

INPARM, LODFMT , COMSTR, PRNTID 

• Files used: Message file 

RECID = integer variable; record ID of a record 
at the lowest level of the data base where 
format information collection is to begin. 

NLVLS = integer variable; the number of levels 
of the data base to be used in tracing the 
family tree for format information. 

ERR = integer variable; returned non- zero if 
any errors were encountered. 

1. The input record ID, RECID, is moved to 
variable ID. U7 is initialized to whatever 
unit has been designated as the message 
file, and the data base top level indicator, 
TLF, is set to zero. 

2. The pointer, NMTCT, to the last used row 
of the Move Table Control Table, MTCT in 
/SY3C0M/, is incremented by one. 

3. The next available row number of the 
Multilevel Move Table, MLMT in /SY3C0M/ , 
is stored in column one of row NMTCT of 
MTCT. 

4. Subroutine LOCREC is used to locate the 
pointer to the record with accession 
number - ID. If the pointer is found, go 

to step 7. 




5. Write "Record not in data base" on unit U7 . 


6. Set ERR - 1 and return to calling routine. 

7. Use GET to retrieve the pointer to the 
record,' and use GET again to retrieve 
the format number of the record from the 
second word of the record (characters 5-8) . 
Convert the format number character string 
to a binary integer via INPARM, and store 
the format number in FMTID(l) of /SY2C0M/ 
and in column 3 of row NMTCT of MTCT. 

8. Use LODFMT to retrieve the format whose 
number is in FMTID(l) and store the format 
in page 1 of FMT in /SY2C0M/. If the format 
was not found in the data base, go to step 6. 

9. Calculate the last used row, N, of page 1 
Of FMT as FMT (6, 1, 1) +1. 

10. For each field name in column 2 of the 
Working Buffer Format, WBF in /SY3C0M/, 
which is not $R, $T, or $L, compare that 
name against the names up to row N in 
column 2 of page 1 of FMT, and if a match 
is found, do steps 11-21, otherwise just 
move to the next name in WBF until they 
are all processed, and then go to step 22. 

11. If the row number, I, of WBF where the 
match was found, « -TBF(4,1), then negate 
TBF(4,1) and go to step 13. TBF is the 
Target Buffer Format in /SY3C0M/, and 
TBF (4,1) contains the negative of the row 
number of the field whose name is '’UNLOAD" . 
This value was placed in TBF (4,1) by 
subroutine BLDTBF when a target field 

type of 4 was encountered, meaning a 
special output conversion was desired 
which depended on the contents of the 
"UNLOAD" field. 

12.. If I =-TBF (4,2) , then negate TBF(4,2). 

This is the row number of the "LSD" 





field which is similar to the "UNLOAD" 
field in step 11. 

13. The length of the field is transferred 
from column 4 of FMT to WBF (6, 1). 

14. The type of the field is transferred 
from column 5 of FMT to WBF(7,I). 

15. The pointer, NSBF, to the last used row 
of the Source Buffer Format, SBF of 
/SY3C0M/, is incremented by one. 

16. The key field indicator is transferred 
from column 6 of FMT to SBF(1, NSBF). 

17. The starting character number is 
transferred from column 3 of FMT to SBF 
(5, NSBF) . 

18. The length of the field Is transferred 
from column 4 of FMT to SBF (6, NSBF). 

19. The type of field is transferred from 
column 5 of FMT to SBF (7, NSBF). 

20. The row number within FMT of the field 
is stored in SBF(2, NSBF) for later use 
in the Change Field command. 

21. The pointer, NMLMT, to the last used row 
of MLMT is incremented by one. The 

value of NSBF is stored in MLMT (1, NMLMT), 
and the value of I is stored in MLMT 
(2, NMLMT) . 

22. After processing all fields of ‘WBF that 
were found in the format for records at 
this data base level, calculate the 
number of rows of MLMT which were generated 
ONMLMT -MTCT (1, NMTCT) +1) and store it 

in MTCT (2, NMTCT) . 

23. Check column 4 of all fields of WBF. If 
any lengths are still = 0, then more 
formats need to be examined if possible, 
so go to step 24, otherwise set TBF(4,1) 
and TBF(4,2) to zero if they are still 
negative and return to the calling 
routine . 

If NMTCT ^ NLVLS, go to step 26. 

3 ^ 

SI 


24 . 



25. Write "Unidentified field(s)" on unit 
U7, and go to step 6. 

26. If TLF £ 0, then go to step 25, otherwi 
use PRNTID to get the next level record 
ID and go to step 2. 



Name : 


JFDFCR 


Purpose : 


To direct the overall processing sequence 
for the JF and DF commands . 


Linkage : 


• Calling sequence: CALL JFDFCR(CIND) 

t Common blocks used: SYSCOM, SY2C0M, 

SY3C0M, CLTBL 

• Subroutines or functions used: AEINIT, 

LODFMT , CICFDF, BLDTBF, SETIN1, XXIN1 , 
FTFMT , FTCMP , GETREC , TFORMW, PRNTID, 
EXCMDS , TFORMZ , DISFMT . 

• Files used: Message file (logical unit 7) 


Input Description : CIND = integer variable; command indicator. 

Set zero for DF and non- zero for JF. 


Output Description : None 


Process Description : 


1. Initialize file pointer U7 to the value 
stored in U(7) of /SYSCOM/. 

2. Use AEINIT to initialize /SY3C0M/ , 
returning the input set number in 
SETNO , the input format number in FMTNO, 
and error indication of non- zero in ERR. 

3. If ERR = 0, go to step 5. 

4. Write on U7, ’’Command terminated due to 
syntax error*", and return to the calling 
routine . 

5. Store FMTNO in FMTID(2) and use LODFMT 
(2, HIT) to load the format into page 2 
of array FMT in /SY2COM/, returning 
HIT as zero if the format could not be 
found in the data base. 

6. If HIT = 0, then write on U7 , "Format 
not found. and return to the calling 
routine . 



7. If COMMAS (1) = 3, meaning there were 
no clauses in the input command, then 
go to step 10. 

8. Use CICFDF to process the clauses in 
the input command, returning ERR non- 
zero if any errors were found. 

9. If ERR f 0, go to step 4. 

10. Use BLDTBF(2) to convert the data base 
format in page 2 of FMT to a standard 
format in the Target Buffer Format, 

TBF in /SY3£OM/. 

11. Use SETIN1 to initialize the input set 
for record ID’s to be returned by XXIN1. 
Use XXINl(RID) to return the first record 
ID in RID. 

12. If RID„= 0, meaning there were no records 
in the input set, return to the calling 
routine* 

13. Set NL, the number of levels in the data 
base to be used, to 1 or 2, depending on 
whether CIND = 0 or f 0, respectively. 
Then use FTFMT (RID, NL, ERR) to complete 
the buffer formats with information about 
fields whose names occurred in the input 
command, returning ERR non- zero if an 
error occurred. 

14. If ERR f 0, then go to step 4. 

15. Use FTCMP to complete starting location 
information in the Working Buffer 
Format, WBF in /SY3COM/ . 

Fill row 2 of the target buffer array, 

BUF , with blanks. 

16. Initialize I, the pointer to the desired 
row of MTCT , the Move Table Control Table 
in / SY3C0M/ , to 1. 

17 . Transfer the format number tor records 
•at this data base level from MTCT (3, 1) 

to FMTID(l) . This prevents an unnecessary 
retrieval of the format record by GETREC. 



18. Use GETREC(1, RID, STAT) to retrieve 
record RID into row 1 of BUF, the 
record buffer in /SY2C0M/ , returning 
STAT non- zero if there was any problem 
with the retrieval. 

19. If STAT ^ 0, ignore this record by- 
going to step 27. 

20. Use TFORMW(l,I) to transfer data from 
row 1 of BUF to WBUF, the Working Buffer 
in /SY3C0M/, as directed by row I of 
MTCT . 

21. If I > NMTCT , the last used row of MTCT, 
then go to step 23. 

22. Increment I by 1, use PRNTID to get record 
RID’s parent record, PID, set RID to PID, 
and go back to step 17. 

23. Set EF = 1 r f'GFLAG= . TRUE . , and use EXCMDS 
to execute the commands in CTBL, the 
Normal Command Table VS Y3COM/, returning 
CFLAG as faUse'' if any of the relational 
clauses failed to be true. 

24. If CFLAG is false, go to step 27. 

25. Use TFORMZ(2,l) to transfer data from 
WBUF to row 2 of BUF. 

26. Use DISFMT to display the record in row 
2 of BUF according to the format in 
FMTID(2) . 

27. Use XXIN1 (RID) to retrieve the next record 
ID in RID. 

28. If RID £ 0, meaning there was a next 
record, go back to step 16. 

29. Return to the calling routine. 





Name : 


JNSNCR 


Purpose : 


Linkage : 


Input Description : 


To direct the overall processing sequence . 
for the JN and.SN commands. 

• Calling sequence: CALL JTfSNCR(CIND) 

• Common blocks used: SYSCOM, SY2C0M, 

SY3C0M, CLTBL 

e Subroutines or functions used: AEINIT, 

RLCLPR, SET INI, SETOUT, XXIN1, FTFMT , 
FTCMP, GETREC, TFORMW, PRNTID, EXCMDS , 
XXOUT , ENDSET 

• Files used: Message file (logical unit 

7) , pointer lists file (logical unit 5) 

CIND = integer variable; command indicator. 
Set zero for SN and non- zero for JN. 


Output Description : None 


Process Description : 


1. Initialize file pointer U7 to the value 
stored in U(7) of /SYSCOM/. Initialize 
the comma array pointer, CP, to 2. 
Initialize the number of records 
selected, HITS, to 0. 

2. Use AEINIT to initialize /SY3C0M/, 
returning the input set number in SETNO, 
and returning ERR non- zero if any errors 
were found. 

3. If ERR = 0, go to step 5. 

4. Write on U7 , "Command terminated due to 
syntax error.", and return to the 
calling routine. 

5. If COMMAS (1) < 3, meaning that there 
were no relational clauses input, go to 
step 4. 



6. Calculate FC, the first character of 
the relational clause, = COMMAS (CP) +1 . 
Calculate NC, the number of characters 
in the relational clause, = COMMAS 
(CP+D-FC. Then use RLCLPR(FC,NC ,ERR) 
to process the relational clause, 
building buffer formats and commands 
to be executed, and returning ERR non- 
zero if any errors were found. 

7. If ERR £ 0, go to step 4. 

8. Increment CP by 1. If CP < COMMAS (1), 
go back to step 6. 

9. Use SETIN1 to initialize the input set 
for record ID T s to be returned by XXIN1. 
Use SETQUT t to initialize file U(5) to 
receive selected record ID's. 

10. Use XXIN1 (RID) to return the first 
record id in RID. 

11. If RID = 0, meaning there were no 
records in the input set, go to step 27. 

12. Set NL, the number of levels of the data 
base to be used, to 1 or 2, depending 

on whether CIND = 0 or / 0, respectively. 
Then use FTFMT (RID, NL, ERR) to complete 
the buffer formats with information 
about fields whose names occurred in 
the input command, returning ERR non- 
zero if an error occurred. 

13. If ERR f 0, go to step 4. 

14. Use FTCMP to complete starting location 
information in the Working Buffer 
Format, WBF in /SY3C0M/. 

15. Initialize I, pointer to the desired 
row of MTCT, the Move Table Control 
Table in /SY3COM/ , to 1. Set R = RID. 

16. Transfer the format number for records 
at this data base level from MTCT (3,1) 
to FMTID(l). This presents an 
unnecessary retrieval of the format 
record by GETREC. 



17. Use GETREC(1, R, STAT) to retrieve 
record R into row 1 of BUF, the record 
buffer in /SY2C0M/, returning STAT 
non- zero if there was any problem with 
the retrieval. 

18. If STAT f 0, ignore this record by 
going to step 25. 

19. Use TFORMW(l,I) to transfer data from 
row 1 of BUF to WBUF, the Working 
Buffer in /SY3COM/, as directed by 
row I of s MTCT. 

20. If I > NMTCT, the last used row of 
MTCT, then go to step 22. 

21. Use PRNTID to get record R's parent 
record, PR. Then set R = PR, incre- 
ment I by 1, and go back to step 16. 

22. Set EF = 1-and use EXCMDS to execute 
the cpmm^nds in CTBL, the Normal 
Command Table in /SY3C0M/, returning 
CFLAG as false if any of the 
relational clauses failed to be true. 

23. If CFLAG is false, go to step 25. 

24. Increment HITS by 1, and use XXOUT 
(RID) to store the selected record 
ID on- file U(5) . 

25. Use XXINl(RID) to return the next 
record ID in RID. 

26. If RID f- 0, meaning there is a next 
record, go back to step 15. 

27. Use ENDSET (HITS, U(5)) to create and 
display an entry in the status table 
of sets. 

28. Return to the calling routine. 


■ 3 * 8-8 



Name : 


JPRPCR 


Purpose : 


Linkage : 


Input Description; 


Output Description : 


To direct the overall processing sequence 
for the JP and RP commands . 

• Calling sequence: CALL JPRPCR(CIND) 

• Common blocks used: SYSCOM, SY2C0M, 

SY3C0M 

• Subroutines or functions used: AEINIT, 

SETIN1, XXIN1 , CIRP, GETREC , TFORMW, 
PRNTID, EXCMDS, COMSTR, SUBSTR, TFORMZ 

• Files used: Message file (logical 

unit 7) , Report file (logical unit 12) . 

CIND = integer variable; command indicator 
Set zero for RP command and non-zero for 
JP command. 

None 


Process Description : 


1. Initialize file pointers U7 and U12 
to the values stored in U(7) and U(12) 
of /SYSCOM/. Initialize first and 
last record indicator, FLREC, to zero. 

2. Use AEINIT to initialize values in 
common, return the input set number 

in SETNO, and return an error indicator 
ERR, non- zero if any errors were found. 

3. If ERR = 0 , go to step 6. 

4. Write on U7, "Command terminated due to 
syntax error . " , 

5. Return to the calling routine. 

6. Use SETIN1 to initialize set number 
SETNO for returning record ID's via 
XXIN1 . 

7. Use XXIN1 to return the first record 
ID, RECID, from the input set. 



8. If RECID ■- 0, then write on U7, ’’Null 
Input Set." and go to step 5. 

9. Use CIRP (CIND, RECID, ERR) to inter- 
pret the command, build tables and 
buffer formats, and return ERR non- 
zero if any errors were found. 

10. If ERR ^ 0, go to step 4. 

11. Initialize the Move Table Control 
Table pointer, MTCTP, to one. 

12. Transfer the format number for this 
level of the data base from MTCT(3, MTCTP) 
to FMTID(l) . This prevents actual 
retrieval of the format record by 
GETREC, since it is not needed. 

13. Use GETREC (1, RECID, STAT) to get record 
RECID into row 1 of BUF in / SY2C0M/ , 
returning STAT non- zero if a problem 
occurred. 

14. If STAT f 0, ignore this RECID by 
going to step 28. 

15. Use TFORMW(l, MTCTP) to transfer data 
from row 1 of BUF to WBUF, the Working 
Buffer in /SY3COM/, based on the 
directions provided by row MTCTP 

of MTCT. 

16. If MTCTP > last used row of MTCT, NMTCT , 
then go to step 18. 

17. Use PRNTID to get the record ID, PID, 
of the parent of RECID. Store PID 
into RECID, increment MTCTP by one, 
and go back to step 12. 

18. Initialize the BY Processing Table 
pointer, BPTP, to one. 

19. Get the Grouping Field Name pointer, 

GFN, from column 1 of row BPTP of the 
BY Processing Table, BPT of /SY3COM/ . 

20. If GFN = 0, go to step 33. 

21. If GFN > 0, go to step 24. 




22. Negate GFN, set ERR = 0, and use 
EXCMDS to execute the commands in 
CTBL, the Normal Command Table of 
/ SY3COM/ , as specified by columns 

2 and 3 of row BPTP of BPT, returning 
ERR non- zero if the commands could 
not be executed for some reason. 

23. If ERR f 0, assume no change in 
this GFN, and go to step 25. 

24. Use COMSTR to compare "the new GFN 

in WBUF to the current GFN in column 
6 of BPT. If they are different, 
go to step 49. 

25. If BPTP 2; last Used row of BPT, NBPT, 
then go to step 27. 

26. Increment BPTP by 1 and go back to 
step 19. 

27. Set ERR = 0 and use EXCMDS to execute 
all the commands stored in the 
Function Command Table, FCTBL in 
/SY3C0M/ . 

28. Use XXIN1 to get the next record ID 
into RECID. 

29. If RECID f 0, meaning there is 
another record to be processed, then 
go back to step 11. 

30. Set FLREC = 2 to mean that the last 
record is being processed. 

31. Set BPTP = 1 and get GFN from column 
1 of row 1 of BPT. 

32. If GFN< 0, negate GFN. 

33. If FLREC = 0, meaning we are processing 
the first record, then set FLREC = 1 
and go to step 39. 

34. Initialize the local BPT pointer, 

LBPTP, to the current value of BPTP. 

35. If BPT (1 , LBPTP) =0, go to step 38. 

36. Transfer all function results and 
concluding text from this BY level 
by setting PFLAG = 2 * LBPTP and 





calling TFORMZ (2 , PFLAG) to transfer 
from WBUF to row 2 of BUF. 

37. If LBPTP< last used row of BPT, 

NBPT, then increment LBPTP by 1 
and go back to step 35. 

38. Write to^ U12 the first 120 characters 
of row 2 of BUF. If FLREC = 2, 
meaning we were processing the last 
record, then return to the calling 
routine. 

39 . Blank out the first 120 characters 
of row 2 of BUF. 

40. Initialize LBPTP = BPTP. 

41. Set ERR = 1 and use EXCMDS to execute 
the commands of CTBL specified by 
columns 4 and 5 of row LBPTP of 

BPT. 

42. Transfer from WBUF to row 2 of BUF 
field values, calculations, and 

' beginning text by setting PFLAG = 

2 *LBPTP- 1 and calling TFORMZ (2, PFLAG) . 

43. If LBPTP > NBPT, then go to step 27. 

44. Increment LBPTP by 1 and get GFN 
from BPT(1, LBPTP) . 

45. If GFN = 0, go to step 41. 

46. If GFN > 0, go to step 48. 

47. Negate GFN, set ERR = 0, and use 
EXCMDS to execute the commands of 
CTBL specified by columns 2 and 3 
of row LBPTP of BPT. If ERR is 
returned non-zero, go to step 41. 

48. Use SUBSTR to store the new value 
of GFN from WBUF to column 6 of row 
LBPTP of BPT, and then go to step 
41. 

49. Use SUBSTR to store the new value 
of GFN from WBUF to column 6 of 
row BPTP of BPT, and then go to 
step 33. 






Name : 


PRNTID 


Purpose : 


Linkage : 


To return the record ID of the next higher 
level record in the same family tree of an 
inverted tree logically structured data base. 

• Calling sequence: CALL PRNTID (CID, PID, 

TLFLAG) 

• Common blocks used: None 

• Subroutines or functions used: None 

a Files used: None 


Input Description : CID = integer variable; child record ID. 

Output Description : PID = integer variable; parent record ID. 

TLFLAG = integer variable; set zero or non- 
zero depending on whether output parent ID 
is not or is at the top level of the data 
base, respectively. 

Process Description : Coded specifically for ASATS, the child 

record ID consists of the segment number 
concatenated with the acquisition date. 

To get the parent record ID, the acquisition 
date portion (lower 16 bits) is set to zero. 
TLFLAG is set to 1 since ASATS parent records 
are at the top level of the data base. 



Name : 


RLCLPR, . 


Purpose : To parse a relational clause of the form 

AE.OP.AE (where AE is an arithmetic expression, 
and OP is a comparison operator) and build a 
table of commands to evaluate the clause. 

Linkage : • Galling sequence: j CALL RLCLPR (FC, NC, ERR) 

• Common blocks used: SY3COM 

• Subroutines or functions used: COMSTR, INDEX, 

ADDLT, CFIND, AEPR, ADDNM , ADDDT, ADDFN 

• Files used: None 

Input Description : FC = integer variable; first character number of 

the string to be processed in array CMD of 
/SY3C0M/ . 

NC = integer variable; number of characters in 
the string to be processed. 

Output Description : ERR = integer variable; returned zero if no errors 

are found, non- zero if an error is found. 

Process Description: 1. Initialize ERR = 0, F = FC, N = NC, and K = 0. 

2. If the character at F is not a single quote 
mark, go to step 11. 

3. Use INDEX to find the next quote mark at J. 

4. If J f 0, go to step 6. 

5. Set ERR = 1 and return to the calling routine. 

6. If J <_ F+l, go to step 5. 

7. Use ADDLT (F, J-F+l), VCD ) to add the literal 
to the Working Buffer Format, WBF in /SY3C0M/, 
getting the row number of WBF returned in V(l) . 

8. Set K = 1 to indicate that the left hand side 
of the relational clause has been processed. 

9. Recalculate the number of characters remaining, 
N, = N -(J-F+l) . 




10. Reset the first character pointer, F, 

= J+l. 

11. Use INDEX to find the first period in N 
characters beginning at F and store 
the location in I. 

12. If I = 0, go to step 5. 

13. Use COMSTR to compare the four characters 
that start at I with an internal table of 
legal operators. If a match is found, then 
J is set to the row number of the internal 
table, otherwise go to step 5. 

14. The actual operator number, OP, to eventually 
be stored in the command table is calculated 
by adding 4 to J. 

15. J is initialized to 1. 

16 . If K = 0 , go to step 19. 

17. If I f F, go to step 5. 

18. J is reset to 2, F is incremented by 4 to 
set it past the operator, N is decremented 
by 4 to account for the operator characters, 
and a jump to step 20 is made. 

19. N is set to the number of characters to the 
left of the operator by setting it equal to 
I-F. 

20. If N <_ 0, go to step 5. 

21. If the character at F is not a single quote 
mark, go to step 28. 

22. If N <_ 2, go to step 5. 

23. If the character at F+N-l is not a single 
quote mark, go to step 5. 

24. Use ADDLT (F f , N, V(J)) to add the literal to 
WBF and receive the row number in V(J) . 

25. If J = 2, go to step 27. 

26. Set J = 2, F = 1+4, and N = NC-N-4 to adjust 
to the right hand side of the operator, and 
go back to step 20. 

27. Increment NCTBL, the pointer to the last 
used row of the Normal Command Table, CTBL in 



/SY3C0M/, by 1. Store V(l) in CTBL 
(1, NCTBL), OP in CTBL C2 , NCTBL), V(2) in 
CTBL (3, NCTBL), NCTBL+1 in CTBL (5, NCTBL), 
and return to the calling routine, 

28. Use CFIND to locate any arithmetic operator, 
storing its location in K. 

29. If K = 0, go to step 33. 

30. Increment NWBF , the pointer to the last used 
row of WBF, by 1. Store NWBF in V(J) , 0 in 

WBF ( 1 , NWBF) , $R in WBF ( 2 , NWBF ) , 4 iiT~ 

WBF (6 , NWBF), and -1 in WBF (7, NWBF). 

31. Use AEPR (F, N, V(J) , ERR) to process the 
arithmetic expression, building commands in 
CTBL which store a result at V(J) of WBF, 
and returning ERR non- zero if any errors were 
found, 

32. If ERR ^ 0, go to step 5, otherwise go to 
step 25. 

33. Use CFIND to determine if the character at 

F is the number sign (K will be returned = 1 
and L will be returned = 8) or a numeric 
character (K will be returned = 1 and L will 
be > 8) . 

34. If K = 0 (implying a field name) , go to step 
38. 

35. If L f 8 (implying a numeric literal), use 
ADDNM (F, N, V(J)) to add the number to 
WBF, receiving the row number back in V(J) , 
and go to step 25. 

36. If N f 5, go to step 5. 

37. Use ADDDT (F, N, V(J) ) to add the date to WBF, 
receiving the row number in V(J) , and go 

to step 25. 

38. If N > 12 , go to step 5. 

39. Use ADDFN (F, N, V(J) ) to add the field name 
to WBF if necessary, receiving the row number 
back in V(J), and go to step 25. 



Name : 


RPCLPR 


To parse a replacement clause of the form FN = AE 
(where FN is a field name and AE is an arithmetic 
expression) and build a table of commands to 
perform the replacement. 

• Calling sequence: CALL RPCLPR (FCS, TNC, 

LOCEQL, IND, ERR) 

• Common blocks used: SY3C0M 

• Subroutines of functions used: INDEX, ADDFN, 

COMSTR, ADDLT, CFIND, ADDDT, AEPR, ADDNM 

• Files used: None 

Input Description : FCS = integer variable; first character number 

of the string to be processed in array CMD of 
/SY3C0M/ . 

TNC = integer variable; total number of characters 
in the string to be processed. 

LOCEQL = integer variable; the character number 
which is the location of the equal sign in the 
input string. If zero, the equal sign will be 
searched for internally. 

IND = integer variable; command indicator to 
allow special processing for different commands. 

A value of zero means the Change Field command 
is being processed. A non-zero value means the 
Display Formatted or Joint Display Formatted 
command is being processed. 

i 

Output Description : ERR - integer variable; set to zero if no errors 

are found and set to non- zero if an error is 
found. 

Process Description : 1. If LOCEQL <_ 0, then INDEX is used to find the 

equal sign and its character position is 
stored in I, otherwise I is set = LOCEQL. 

2. If the equal sign is located, go to step 4. 


Purpose : 


Linkage : 
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3. Set ERR = X and return to the calling routine. 

4. Initialize the first character pointer, FC, 
to FCS . 

5. Calculate the number of characters, NC, in 
the field name - I-FC. 

6. If NC <_ 0, go to step 3. 

7. If NC > 12, go to step 3. 

8. Use ADDFN (FC, NC, K) to add the field name 
to the Working Buffer Format, WBF in 
/SY3COM/, if it is not already there, and 
receive back the row number of WBF in K. 

9. If IND = 0, then increment NTBF, the pointer 
to the last used row of TBF, the Target Buffer 
Format in /SY3COM/, by one, store a one in 
TBF (1, NTBF) and store K in TBF (2, NTBF). 

10. Move the first character pointer, FC, to the 
first character past the equal sign by setting 
FC = 1+1. Calculate NC, the number of 
characters to the right of the equal sign, 

by NC = TNC-I. 

11. If NC <_ 0, go to step 3. 

12. If the character at FC is not a single quote 
mark, go to step 17. 

13. If NC < 3, go to step 3. 

14. Use ADDLT (FC, NC, L) to add the text literal 
to WBF and receive the row number back in L. 

15. Increment NCTBL, the pointer to the last used 
row in CTBL, the Normal Command Table in 
/SY3C0M/ , by one. Store L in CTBL (1, NCTBL), 
16 in CTBL (2, NCTBL), K in CTBL (4, NCTBL), 
and NCTBL+1 in CTBL (5, NCTBL). 

16. Return to the calling routine. 

17. Use CFIND to determine if the character 
string to the right of the equal sign is 
an arithmetic expression by locating any 

+ , - , * , /> (, or), and pointing to it with 
I. 
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18. If I f 0 , then call AEPR (FC, NC, K, ERR) 
to process the arithmetic expression, 
creating commands in CTBL to evaluate the 
expression and store the result in K, 
returning ERR as non- zero if any errors 
were found, otherwise go to step 21. 

19. If ERR £ 0, go to step 3. 

20. Return to the calling routine. 

21. Check the character at FC for the number sign 
or a numeric character via CFIND. 

22. If neither was found, the right side of the 
equal is assumed to be a field name. If 

NC > 12, then go to step 3, otherwise call 
ADDFN (FC, NC, L) and go to step 15. 

23. If character FC is a number sign, 'then a date 
literal is expected. If NC f 5, then go to 
step 3, otherwise call ADDDT (FC, NC, L) to 
add the date literal to WBF and go to step 
15. 

24. If character FC is a numeric character, then 
a numeric literal is expected, and ADDNM 
(FC, NC, L) is called to add it to WBF . Then 
go to step 15. 





Name: 

SEL 

Purpose: 

To initiate execution of the Rims system; 
calls UNITS to initialize the array U(14) 
of /SYSCOM/; calls CIMAIN which initiates 
interpretation of the command line . 

Linkage: 

• Calling sequence: Not applicable 

• Common blocks used: SYSCOM, EXPCOM, 

SECCOM 

• Subroutines or functions used: CIMAIN, 

END, UNITS 

• Piles used: Message file (logical unit 

7) , command file (logical unit 13) 

Input Description: 

None 

Output Description: 

None 


Process Description: 1. 

2 . 

3. 


4. 

5 . 




Use UNITS to initialize the array U(14) 
of /SYSCOM/. 

IW=0, initialize command counter, (not 
used) . 

Initialize file pointers UW and UR 
to the values stored in U{7) and U(13) 
of /SYSCOM/. 

Write 1 ENTER COMMAND ' on the device 
designated as the message file. 

Set IAP=1 of /SYSCOM/, allows printing 
of the number of sets in the Status 
Table ? If "IAP=0, indicates no printing 
of status table. 



6. Read command line; if UW ^7, 
write the command line on 
the designated device. If 
end-of-file is read, go to 
step 10. 

7. Call CIMAIN, to begin inter- 
pretation of the command line 

8. IW=IW+1, increment command 
counter (not used) 

9. Go back to step 3. 

10. Call END, terminate execution 
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Name : 


SORTS 


Modification Purpose : 


Linkage Modification: 



To allow the user to order a 
set of FLOCON records based 
upon the contents of fields in 
either the FLOCON or DAPTS 
records for that set. 

• Calling Sequence: CALL SORTS 

(SET, NF, LIST, SF) 

• Common Blocks used: No change 

• Subroutines or functions used: 
No change 

• Files used: No change 

SF: integer value, where SF =1 
means sort on FLOCON data, SF =2 
means sort on either FLOCON or 
DAPTS data. 


Output Description Modification: 


No change 


Process Description Modification : For SF = 2 only, the DAPTS record 

for each appropriate FLOCON 
record is retrieved. Next the 
formats for DAPTS or FLOCON records 
are loaded as needed, a table of 
sorting names is loaded in proper 
hierarchical order and a buffer 
pointer table is also built to 
point to the proper buffer for 
data retrieval. Lastly, the data 
retrieval section is altered to 
get data from the appropriate 
buffer by use of the buffer 
pointer table as an index. 
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ame: 


SORTP 


odification Purpose : To pass an argument to SORTS to 

indicate the type of sort to 
perform. 

• Calling sequence: CALL SORTP (SF) 

• Common blocks used: No change 

• Subroutines or functions used: No 
change 

• Files used: No change 

SF = integer variable, indicat.es 
which type of sort SORTS is to per- 
form. 1 — normal sort, 2 = joint sort. 

itput Description Modification : None 

rocess Description Modification : The argument SF received from JLASYS 

is passed to SORTS to allow SORTS to 
perform the appropriate type of 
sort . 


inkage Modification : 


iput Description Modification : 



Name : 


SPCSET 


Modification Purpose : 

Linkage Modification : 

Input Description Modification : 
Output Description Modification : 
Process Description Modification : 


To stop the input process when an 
end-of-file is read as well as a 
zero record ID, 

• Calling sequence: No change 

• Common blocks used: No change 

• Subroutines or functions used: 

No change 

• Files used: No change 

No change 

No change 

Insert an end-of-file branch to 
statement number 3 into the state- 
ment that reads from the data file. 
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Name : 


SQZE 

To delete ektranepus blanks from a 
character string and build an array of 
pointers to the commas in the character 
string . 

• Calling sequence: CALL SQZE (INARY, 

INST, INLEN, OUTARY, OUTST, OUTLEN, 

COMMAS) 

• Common blocks used: None 

• Subroutines or functions used: None 

t Files used: None 

Input Description : INARY = integer array name; starting location 

of the array containing the input string 
INST = integer variable; character number 
of INARY at which to begin processing 
INLEN = integer variable; number of 
characters in INARY to be processed 
OUTST = integer variable; character number 
of OUTARY at which to begin storing output 
COMMAS = integer array name; contains the 
Comma Location Table. The first word 
contains the number of the last used word 
in the array and should be input containing 
the value one upon the first call within 
any one command. 

Output Description : OUTARY = integer array name; starting 

location of the array to contain the output 

i 

OUTLEN - integer variable; number of 
characters stored in OUTARY 
COMMAS = integer array name? contains the 
Comma Location Table. The first word 
conta-ns the number of the last used word 
in the array. The other words contain the 
character number of OUTARY where commas occur 
(exclusive of those commas occurring between 


Purpose : 


Linkage : 



pairs of quote marks) . The first word 
will be output as a negative value when 
an exclamation mark has been encountered 
and stored as a terminating comma for 
the command . 

1. Counters and pointers are initialized. 

2. If the last character of INARY has 
been passed, go to step 10. 

3. If processing is between quote marks 
(QSET = 2 or 3) , check this character 
for the terminating quote mark, reset 
QSET to 1 if it is, and go to step 8. 

4. If the character is a blank, 9° to 
step 9. 

5. If the character is a quote mark, set 
QSET ( = 2 for single quote, = 3 for 
double quote) and go to step 8. 

6. If the character is a comma, store the 
OUTARY pointer in the next available 
location in COMMAS, increment the pointer 
to the last used word of COMMAS, and go 
to step 8. 

7. If the character is an exclamation mark, 
store the OUTARY pointer in the next 
available location in COMMAS, increment 
and negate the pointer to the last used 
word of COMMAS, store a comma in 
OUTARY, increment the OUTARY pointer, 
and go to step 10. 

8. Transfer the character to "OUTARY and 
increment the OUTARY pointer. 

9. Increment the INARY pointer and go to 
step 2. 

10. Store the pointer to the last used word 
of COMMAS into word one of COMMAS, 

i 

calculate OUTLEN as the OUTARY pointer 
minus OUTST, and return to the calling 
program'. 



STAEPR 


To store arithmetic processing data into the 
normal command table in mathematic 
hierarchical order. 

• Calling sequence: Call STAEPR (VTAB, OPC, 

FIRST, LAST, TREG) 

• Common blocks used: SY3C0M 

• Subroutines or functions used: None 

• Files used: None 

Input Description : VTAB = integer array; contains pointers to 

variables or literals in the working buffer 
format table, intermediate storage registers 
or special integers representing close or open 
brackets . 

OPC = integer array; contains either 
mathematical operator indicators or 
special integers representing close or open 
brackets . 

FIRST = integer variable; 
pointer to first variable in VTAB 
and OPC to be used for processing. 

LAST = integer variable; pointer to last 
variable in VTAB § OPC to be used in 
processing . 

TREG = integer variable; index pointer 
into intermediate storage register buffer, 
used for intermediate data storage. 

Output Description : Normal command table filled with appropriate. 

arithmetic processing data. TREG updated 
as intermediate storage registers are 
needed. 


Name : 
Purpose : 

Linkage : 






A loop is set up to search the entries in 
the OPC table. Steps 1 thru 3 performed 
for all entries. 

1. The intermediate storage register pointer 
(TREG) is updated . The OPC entry for the 
next two adjacent locations is checked 
for mathematical hierarchy. If they 

are of equal hierarchy or if the first 
is of a lesser hierarchy,- step 2 is 
performed, otherwise step 3 is performed. 

2. The next normal command table entry is 
leaded with values from the current and 
next entry of VTAB, the current value of 
OPC and the intermediate storage register 
pointer (TREG) . Then the next entry of 
VTAB is loaded with the intermediate 
storage register pointer (TREG) and return 
to step 1. 

3. The next normal command table entry is 
loaded with values from the next and next 

+1 entry of VTAB, the next 
+1 value of OPC and the intermediate 
storage register pointer (TREG). The 
next +1 entry of VTAB § OPC is loaded 
with the current value of VTAB § OPC 
respectively. The next +2 entry of VTAB 
is loaded with the intermediate storage 
register pointer (TREG) and return to step 
1 . 



Name : 


TFORMW 


Purpose : 

Linkage : 

Input Description : 

Output Description : 
Process Description : 


To transfer data from a source buffer to 
the Working Buffer. 

• Calling sequence: CALL TFORMW(ROW, MTCTRW) 

• Common blocks used: SY2C0M, SY3C0M 

• Subroutines or functions used: SUBSTR 

• Files used: None 

ROW = integer variable; the row number of the 
source buffer, BUF in /SY2C0M/, where the 
input data is stored. 

MTCTRW = integer variable; the row number 
of the Move Table Control Table, MTCT in 
/SY3C0M/, to be used for control. 

None 

The starting row of the Multilevel "Move Table, 
MLMT in /SY3C0M/, is retrieved from MTCT 
(1, MTCTRW). The number of rows of the 
MLMT to use is retrieved from MTCT (2, MTCTRW) 
and used to calculate the final row number. 

Then for each of these rows. Cl) a pointer 
for the Source Buffer Format, SBF in /SY3C0M/, 
is retrieved from the first word of the row 
of MLMT, (2) a pointer for the Working Buffer 
Format, WBF in /SY3C0M/, is retrieved from 
the second word of the row of MLMT, and (3) 
SUBSTR is used to transfer the data from 
BUF to WBUF , the Working Buffer in /SY3C0M/ . 
After the specified number of rows have 
been processed, a return is made to the calling 
routine . 



Name : 


TFORMZ 


Purpose : To transfer data from the Working Buffer to 

a target buffer, converting the data 
representation when needed. 

Linkage : • Calling sequence: CALL TFORMZ (ROW, PF) 

• Common blocks used: SY2C0M, SY3C0M 

• Subroutines or functions used: SUBSTR, 

DTEINT, CHAR, COMSTR 

• Files used: None 


Input Description : ROW = integer variable; the row number of the 

target buffer, BUF in /SY2C0M/, where the 
data is to be stored. 

PF = integer variable; indicator for which 
fields of the target buffer are to be 
filled from the Working Buffer, WBUF in 
/SY3C0M/. A field is filled if word one of 
its Target Buffer Format, TBF in /SY3C0M/, 
is equal to PF. 

Output Description : None 

Process Description : For each row of TBF, the following process is 

done, and then a return is made to the 
calling routine: 

1. If column 1 of TBF is not equal to PF, 
ignore this row and go to step 25. 

2. Retrieve F, the pointer to the WBF row 
number, from column 2 of TBF. 

3. If -the output field type, column 5 of TBF, 
is > 3, go to step 9. 

4. If column 2 of row F of WBF indicates text 
type (by $T) , then use SUBSTR to transfer 
the text from the command line array, CMD 
in /SY3C0M/ , to BUF and then go to step 25. 



5. If column 2 of row F of WBF does not 
indicate a results field (by $R) , then 
go to step 7. 

6. If column 5 of row F of WBF does not 
indicate text type (contains non- zero), 
then go to step 8. 

7. Use SUBSTR to transfer the data from 
WBUF to BUF and if WBUF was a results 
field, then use SUBSTR to reinitialize 
WBUF from the first word of row F of WBF 
and go to step 25, otherwise just go to 
step 25. 

8. Use SUBSTR to transfer the data in WBUF 
to an integer variable named RESULT and 
based on the target type (column 5 of 
TBF) , use CHAR (type = 1) or DTEINT 
(type = 2) to convert RESULT to a 
character string in BUF. Then reinitialize 
WBUF from the first word of row F of WBF 
and go to step 25. ' 

9. Extract the first character of the field 
in WBUF and store this character in 
CRDTYP . 

10. If the target field type f 5, go to step 12. 

11. Search the array FLMTYP until a match with 
CRDTYP is found at element L. If no 
match is found, set L = 8. Store the 12 
characters of row L of table FLMTAB into 
the field in the target buffer and go 

to step 25. 

12. If the target field type f 4, go to 
step 23. 

13. Search the array CMPTYP until a match 
with CRDTYP is found at element L. If 
no match is found, set L = 11. 

14. If L < 5 or = 11, go to step 22. 

15. If L > 7, go to step 19. 

16. Extract the pointer to the "UNLOAD" 
field from TBF(4,1) and store it in K. 
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17. If K = 0, go to step 22. 

18. If the "UNLOAD" field is non-blank, 
then increment L by 3 and go to step 22, 
otherwise go to step 22. 

19. Extract the pointer to the "LSD" field 
from TBF(4,2) and store it in K. 

20. If K = 0, then set L - 11 and go to 
step 22. 

21. Use SUBSTR to transfer the contents of the 
"LSD" field from WBUF to the target field 
and go to step 25. 

22. Use SUBSTR to store the 12 characters 
of row L of table CMPTAB into the field 
in the target buffer and go to step 25. 

23. If the target field type / 9, go to step 7. 

24. Search the array GCMTYP until a match 
with CRDTYP is found at element L. If 
no match is found, set L = 1. Use 
SUBSTR to store the 12 characters of row 
L of table GCMTAB into the field in the 
target buffer. 

25. Move to the next row of TBF and start 
over at step 1. 
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Name : 


TJUMP 


Purpose : 

Linkage : 

Input Description : 

Output Description : 
Process Description : 


To eliminate headers and other data 
associated with a null set. 

• Calling sequence: CALL TJUMP 

\ 

• Common blocks used: SYSCOM, SY2C0M 

• Subroutines or functions used: INDEX, 

SUBSTR , INPARM 

• Piles used: None 

A command line containing the set to be 
checked. 

None 

The set in question is checked to see if 
it contains data. If it does contain data 
no action is required and the routine exits. 
If there is no data in the set, the label 
from the command line is saved for later 
use. Next the input file is read until a 
label card containing "LA" followed by 
the label saved from the JT command line is 
found. The routine then exits. 



Name : 


UNITS 


Purpose: 


To initialize the integer variable array 
U of /SYS COM/ 


Linkage : 


• Calling sequence: Call units 

• Common blocks used: SYSCOM 

0 Subroutines or functions used: 
ASSIGN^ ’CLOSE,’ LAST 

• Files used: U(7), U(8), U(ll), 

U (12 ) , U (13) , UNITS. SAT 


Input Description: None 

Output Description : None 


Process Description: 


1. Call ASSIGN associates logical unit 
1 with disk file UNITS. SAT. 

2. Read integer values from UNITS. SAT 
and store data into their respec- 
tive storage locations U(7), U(8), 
U(ll) , U (12 ) and U(13) . 

3. Read the file number, and file 
name. At END - go "to step” 5." 

4. Use LAST to determine the number 

of characters contained in the file 
name, then return to step 3. 

5. Use CLOSE to close logical unit 1. 

6. Return to calling routine. 
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3.2.2 PROGRAM CROSS '-REFERENCE 


On the following pages is a cross-reference listing which, for each 
program used in RIMS, shows all the programs that it calls (both 
directly from itself and indirectly through programs it calls) 
and all the programs that call it. 
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AEWT A°SC^T APSINT APSTUP AUPOST CICFDF EXCHD 3 FTCHp FTFHT GETREC REPR SETIM TFURKh TFORMZ 

CFCR OIPECyIy Ind TNDJ»icTl V 7 *LLS» * 

AOOOT APDF.N AO iKEY — iDOLt. ADnKM A.ELNIX__A££R APSCMI_ APSEt APSI.HJ. AP 5 IU£_AUE. 05 X_CF 4 ND. —WAR 

^ CTC r OF COHSTP OEIKFV OTEIMT FNDSET EXCMO EXCHDS FTCHP FTFHT GET GETREC INDEX INPARM KQMKEY 

L A HP . LNOI UO.T.L. 1 . 0 C RF C,.,. IQ O F HJ. LflQBZC L 05 N.HJLIS P ART . POST P ..R.NTIP P UT ... R ANGE.. .HERB 

RlClPR ROLL PPCIPR SET jnj «ETr «2 SETOUT 3 QZE SSORT STAEPR STATUS SUBSTR TFORHw TFURHZ Verify 

"t - _ x x 1 n I xx in? . yxout . . . . 

CFCO IS OlFECTLY C«LLE n By'i 

CFINO DIRECTLY CAL LSI ' ‘ : 

In& E.x ___ . 

CFInD OTRFCTLV AND TsniRECTi y CALLS! 

"> CCHSTR _"INDEX_. . __ 

CFIN? I« OIRECTLT CALLED RY, 

CICFPF _fIRp __ PUCL-PP.- oPCL p R I 

^ CHAR OTPECTLV CALLS! 

»Jp QHg. > 

Char directly and indirect! y c*lls» 

0 NO ONE. _ J 

CHAR is DIPECTtV CALI ED BY i 

CYETNT_ f *C«D mqvsEG TFQRH TF.DR. 1 Z . 

") CICFDF DIRECTLY CALLS! 

C c ind PLriPR RPr.LPR 

dCFOP DIkECTLY and tNDIPECTlY C»LL 3 t 

"5 A ft DOT — ADOFN .APQi .1 aDOhH AE PP CF TNO char CQHS TR 0 TE 1 N.T. InP EX INPARH RI,C LPR R PCI.PR BT AFPR 

SUBSTR VERIFY 

_PJ C F Of. I S_p J e f C T l T CALLED BYi _ 

O rr CR JFOFCR 

CIHAIN DIRECTLY CALLS! 


CIS'101 CISUS2 CISUPJ rlSUBu CISU95 
L5 CIMAIn OIR.FCTLY And INDIRECT! Y CALLS! 

CISUB6 

CLOSER 

JPRPCR 

MODE 

STATUS 

SUBSTR 

verify 




ACCVin Af>r>DT 4D0FW aD^^Ey 

ATT AC^ AUPrU A U 0 0 S T 

addlt 

RLDTBF 

ADDS” 

C*Uf.TL_ 

AODR 

CFCR 

AODRFC 

CFJNJ 

AEINIT 

chah 

AEPR 

.CJ.C1DF 

APSCNT 

CIRP 

APSEL 

^ClSUbl 

AFSINT 

.C.ISUB2_ 

APSTUP 
Cl SUB S 


) CISUBP C ISU R 5 CISIJR5 CLEaNP 

DEL® DEI REC DIsi“T DISoDO 

CLOSEL 
nis»L a 

FLOSE D 

DTEINT 

CHDRI 
F NO 

CHPUTE 

ENDSET 

CBHbIN 

EXCHD 

COHSTR 

EXCHDS 

CRESTS 

Expand 

DBPRO 

FIND 

DELETE 

FOH« 

UELKEY 
F ORHP 


FTt«P FTFHT f.ET RETCLD GETPAR 

a last l w vtab i not iocatf i ocrec 

GETREC 

LOOfRT 

HEADER 

_L00flE.C 

INDEX ‘ 
LOR 

InRARM 

LXOR 

JFDFCR 
_ NODE . 

jnsncr 

HOvSEG 

JPRPCR 

KOMKEY 

-EARSEC 

LAND 

Papsfp 


p art post p4ktto ds*pd 

SSL r rT SELREC FETIN'! PF T i ►Jp 

OUT 

«F TOUT 

RANGE 

SEUNIV 

PEAF 

SHINUS 

PEPKET 

SDRTr 

REPR 

SORTS 

REPREC 

SPCSET 

RESTRX 

SPJ.U3 

RLCLPR 
SOZE 

ROLL 

JSi/RT 

RPCLPR 

STAAPR 


IJ STATUS STCM SUBSTR TFORM 

CJMaTN is DIRECT! Y CALLED RYi 

rFop«*f 

TF0R“Z 

TJUHP 

UNLOCK 

verify 

XPOST 

XREF 

XX IN J 

XXI%2 

XXDUT 


SEL 

<J_CJPP DIRECTLY CALLS! . 

AODEN ADDL t aEPP fFIKD CD^STR 

_CIRP OTRECTLY AND TNt'JOFCTIV C*LlSl 

ftcmp 

FTFHT 

INDEX 

Inoarm 







o ADDFN AODLT AEPR cfino 

PRNTTD RCLL STAEPR SUBSTR 

CHAR 

VERIFY 

COMSTP 

DTEINT 

FTCHp 

FTFHT 

GET 

INDEX 

INPA IH 

LOCREC 

LOOFHT 



CIRP IS DIRECTLY CALLED 8V, 

•j JPRPC R 

CISUBl DIRECTLY CAlLSt’ 


CFC» END JFDfCR 


U CISUBl DIRECTLY AND 
*OODT ATDFN 

INDIRECT! Y CALLS! 
ADDKFY ADPLT ADDNH 

AEINIT 

AEPR 

APSCNT 

APSEL 

APSINT 

APSTUP 

AUPOST 

BLDTdF 

CFCR 



CFINO 

CHAR 

rlTFOF fOPSTR 

DELKEY 

OISF M T 

KH3£n 



“Txchd 

“EjTc^&T 

■ HI M 

uiau 

GET 



,_J GFTRFC 

INDEX 

JHPARH JFOFCR 

VO w K£Y 

LANO 

LNOT 

locate 

LOCREC 

LCDFMT 

LODREC 

LOR 

nhits 

fart 



POST 

PBNTID 

PUT RANGE 

REPR 

RLCLPR 

ROLL 

R°CL PR 

SETIN1 

SETIN2 

SETOUT 

SOZE 

SSORT 

STAEPR 




STATUS 

SUP SIR 

TFORMK TFCPYZ 

VERIFY 

XXTN! 

XX IN2 

XXOUT 







. _ 






w CiVuBl is DIRECTLY CALLED RY! 
CTNAT* 







JLlCNJL 


CI5U»P OIRFCTLV CALLSl 

C Q M ? T n__ _D£L £ T £_ h£ AD FA__J«S NCR SFI F i»T 

CISU?? DJ3EC t LY AND TMDIBECTl V c * UL S 1 \ 

rv?2Ic- — * orl - T — A0I?V: ” — *£1^1 1 -AEPR. _CFIND CHAR.. 

, E * c * eS F C FTP “ T GET GETREC header INDEX InPARM 

L.OpP^f C LQO LYIL5 VUITS RR N TTD P UT RAN G E Rt ft PR 

r,<„ STf, ' T ,URSTR TFORH- VERIFY XXInI XXIN3 

— C I SlIP 2 IE DIRFCTlY £AU.ED__aYi_ . 

C I ha iv ' 

. — CL5U P 3. f'T.REjITLY CALLM 

FfcGIv CLFawp SH T Nf|$ RPlO'S UNLOCK " 

jEJHj B 3_QT°FCTl. v and tnoirfctiv oai i i. 


COMBIN. 
JNSNCR 
BOLL 
XX OUT 


CQKsm_. BELETf — OTEIM.T. _ E.SDEET . _£XCHD - 
LAND LNOT LOCA - E locbec LODFHT 
U 12 — SETUP.! SOZE 


BEGIN fLFRNP 
STATUS. SUSSTr 
CALI ED RYj 


COHSTP 

UNLOCK. 


DELR 

.VERIFY. 


GET 


ACDR ATTACH 

- . S'* Hiys -.S p l us 
CISUS3 IS DIRECTLY 

... CIYAH. 

CISL'Bu DIRECTLY CALL«| 

C**QP I MQVS FR u pOTP 

CISUE'J DISFCTLY And TNDIBECTIY C*LlSl 

..„.A-'OB C^-AB CLOS p L — .CLOSER .CHDRI CPPUTE COMST.R_ GE.T. 


index inpapm locbec lodrec psnrd put roll 


Y.IIJP P 


O 

“5 

.) 

n 

o 

L3 

O 

;J> 

O 

U 

J 

la 


LOC°EC LODF M T t O^REC MOVSFG 

T JD“P — vEPIF.Y. _ XXI.NJ XXCUt. 

CISUSil IS DIRECTLY CALI £0 RY i 
-CULA.IN. 


PART 


PUT 


REPR 


roll 


-GETREC- 

SETIN1 


-INDEX INPARM — KOMKEy LAST LMVTAB- 

SETOUT SORTP SORTS SSgHT 8UBSTR 


PARSEC -PARSEP....REAF SELREC SEUNIV _ SPCSET XREF 


CISU5E DIRECTLY TALLSl 

ARD C EC RISPDC OJSPLA . FXP&NO FORKH 

CISUPR DIRECTLY and TNT i recti Y ca^lsi 

- ‘ D ° 0£LC - CLOSEP .C0 M STJl — DISPDO — DISPLA— ENOSET EXPAND 

GETPAR INDEX j'lPARM | OCR c C LODFHT LUOREC NHITS PARSFC PARSER 

^iUt?if^^ ^ALLED T e Y r A T ' ;S -' SU - STR VE ° rFV ^ 

- CIHAIN 

CISUBf. DIRECTLY CAL LS i 

— --‘COKEY C AUFI L_ CRESTS _QB?PO DELKEY 

CISURfe DT°FCTLY AND TNDIRECTI Y CALLSl 

ADQYEY acqr APsCNT iPSPL APSIMT 


FIND — FORM 

Rut reaf 


-FORMP GE-T GETCLD- 

ROLL SELREC SET I M 1 


-DEL.REC — REEK ELY REP.REC X£QSJ_ 


DELypY DELR f>EI °FC ENDSET GET 

.. LP5FWT — LODPEC-J-CO i:HIT5 PARI 

SFTIwa SF TpUT S$ORT STATUS SUBSTR 

_iISUP6 IS 0I R ECTLl_CALL£O HYi 

CIPAIN 

fJXAHP ,QJ P FCTLY CAT I Si 


S f MAg ElflSEg COHSTP CPfcSTS JMERfL 


GETREC INDEX INPARM KOMKEY 

-POST PUT.- RANGE _ _?£PK£Y 

TfDRH VERIFY XPOST XXJxl 


LAND LMVTAB LNOT LOCATE LOCBEC 

REPR BEPREC_.RES.TIIX ROLL SEUNl- 

XXI N2 XXOUT 


OO- 


NO 0‘E. 

_CLEANP DJ«FC?LY and INDIRECTLY- C‘XLSi 
NR ONE. 

- -CLE.AXP . IS CJRECTLY_CALLEO..RYi 

CISUB3 

— CLOEEj — direcily_callsjl: 

CO«ST» LAST SURSTR 

-CLOSFl DIRECTLY. And TKniRFC Tl V CA| I Si 
corsyr Last supStr 

fLOSEL -IS. DIRECTLY-CALLED J?Y_»__ 

SORTP 

JCm£.FP_D.I. w F C T L Y CAM Si 

NO ONE , 


O- 

JJ- 

3? r 


tO -n 


& a 

r 1 rn 

-3 co- 


TNQIPECII.Y CALLSl 


-CLOSER. PIRfCTLY.A.ND 
NO ONE. 

— CLOSE 0 IS .DIRECTLY. CALL ED (LYt 

ADDREC CIHAIN TMOUTF rREjTs 
CMDBI DT°FCTLY CAl l k. 


FORM 


REPKEY R£PREC RE8TRX XPOST 


C u PiJTt INDEX INPAPM SURSTR 

_ cmdr r directly and indirecily c all s j 

add® CLOSER CMBIITF rOMSTR GFT 

— . b oll. setini substr. ve®]fy xxjnl 

CmD»T is DJRFfUY CALLED py» 

. CiSimu 


GETRFC INDEX INPAQV L-VUS LOCREC L 05 C HT LOOREc'p’Jt REPR 



<V$I. 



CMPljTe PIRFCTL V CA1 LM 

'.DM _CJ.<?SfF — GETPEC L« Y.tAB LODRE.C PEER SCI I NJ SUBSTR .VfR tEJ XXI.N.1_ 

CMPU»e DIRECTLY AND TNOIRFCTI V CM-LSt 

4. *0&R _ CLPSEP .CP«STP.fiET CETPEC IM5EX TN2ARtt_ LHV7AB LOCREC. . L0DFM.T. _ UCDRE1L. -PJJLT _ ..&EPR POLL 

_J* S E T I »> t SUBSTR VERIFY XXlNl 

* _£££.'■) !£. JLS_PIALCJJJt_C AJLL.1S—B-YJ 

C“0RI 

_CQ^3I v 9I°ECTLY CALLS l 

En'OSET INDEX TNPaPM I ANO LNOT LOP LXOR SFTINJ 3ETIN2 SETOUT SUBSTR VER, FY 

_Ca“' 3 l.‘ , _ v>i B £C T LX. ami indir ect! v cai l s i 

^ CCKSTP EMPSET GET JM>FX INPARM LAND L N 0T LOR LXOR NhITS POT ROll SETI«t SETIN2 

S STOUT STATUS cimSTP VERtEy yxTN-1 XXTN? XXCUT 

CO M DlN IS DIRECTLY CALLED BY| 

~ CORS’R DIRECTLY CALLSl" " * 

■* CO''STR DIRECTLY And J NO J RFC Tl V C*LLSt 

u p ONE. ___ w _ 

COUSIR IS DIRECTLY CALLED BYl 

^ APDFN.___AFTt.JT_._A EPS Ail p QSt — BEG.IJJ SLDTBE CIRP. CLOSEl DflPRO EXCHO_._J:XPAND_F4NO EORM k.TF.MI_ 

I'lDex JpRPfR KQMKEY last LPVTAS LOCATE RANGE RLCLpR RPCLPR TFORM TFORHZ UNLOCK 

-CRESTS .DTRFCTLY _C_*Ll ! I ________ 

"1 'CLOSER INDEX TNPARW | ODF«T RESTRX 

CREST s OIFFCTtV i>'D TNPIRFCTI Y rAi i s. 

A DDK F y APSC kr T APSEL ABSINt 4PSTUP AUPOST CHAR CLOSEP COHSTR DFLKEY DtlR ENDSfcT GET GETREC 

") Tndex _.JUP A R m k 0 »KF-Y LAND. _. L1VIAB . LNaT LOCATE LOCKEC .. LODE W T— LODREC LOR .NHIT5 p>RT. POST- _ 

Put Range BEPR RESTRx roll SETIN’I setjne SETOUT ssort status .SUBSTR tform verify xxim 

xx in? xxoJIT__ : 

O CRESTS IS DIRECTLY CALLED BYi 

C T SU B & 

DBPRO DIRECTLY C A) LSI ' ’ 

CpMSTR _ SUBJTg.. vl R I F V 

DpPRO DIRECTLY AND !>PIRECTIY CALLSl 

COHSTR. index eURSTP v£fli£.y 

) DBPRO i« DIRECTLY CALLED BYt 

. C1SU°S ; 

DEI ETE DIRECTLY CALLSl 

' ) . INP.ARN ___ 

DELETE DIRECTLY and TND1RECTIY CALLS! 

COUSTR_ IND|X_ TnoaRM VJ-R If Y 

) DELETE is DIRECTLY CALLED «7| " - " 

cis'ip; 

DELKE Y DIRECTLY CALLSl 

■ )_ locate put SURJTR v e r i Fj? 

del key directly and'Yndirect” y'callsi 

COHSTR GET TN- Y FX tOCATf PUT BOLL SUBSTR VERIFY 

J DELKEY IS DIRECTLY CALLED PYi 

AUPOST- CISUBf, ; 

DELR DIRECTLY CALLS: 

U_ locrfc put 

DELR DIRECTLY AND INDIRECtTy C a LL9i 

_ GET__ LOCRF^ put SOU. 

O O'elR is DIRECTLY CALLED Bvf ’ 

DFLREC »FSTRX SHINUS 

DEIRFC OIRFCTLy CALLSt 

tj DELR I NRARh __ 

D'eLREC directly" and INDIRECT? Y C*U3i " " ' ' " 

CD“STR Of(. R r.ET IN OFX TNPARM LO CRE C PUT ROLJ. VER.I F_t . 

yj DELREC IS DIRECTLY CALLED BY i 

CTSURN 

OISFRT DIRECTLY CALL«t “ 

NO ONE. _ 

DlSFMT DIRECTLY and INO'IRECTI Y C A L L S~T ' " _ "" ~ 

NO ONE. 

niSFPT is CIRECTIV calTeVbyi “ - ■ 

JFDFCR 



dispdo directly callsi 

TnDEX .INPJ.EX. .tOCFAt 

OISPOD DT°FCTLY and TNDIPECTl Y C*LLSl I 

J! CDYJT? — OFT INDEX TNPaRm LfljCREC LQDEM.T ROLL JVERiFJY 

* DISeOD IS DIRECTLY CALLED BYi 

' C 151155 , 

OISPi-4 DIRECTLY C*L ! Si " " " 

~ I t'OEY. InPaPh _ LQDREC.,,. SET IN.L.. -X XINJ 

DISPLA DIRECTLY 4N0 INDIRECT! Y CALLS! 

_ CQMS.TW __GE 5 IUEX LNEaR? LOCKED LCJ1REC ROLL SETIni VER I FY X xINl 

• OISPLA IS DIRECTLY CALLED BYl 

HSUS 

DTEILT DIRECTLY CALLS! 

"* .OAR ISP4RY .SUBSTR. „ 

DTE I Y Y D tREC T L Y AND INDIRECT! Y CALLS! 

— Char... co^str ..index . tnraR(i._sll3st.p verify , 

1 DTE I IS DIPECTLY CALI ED f»Yl 

AQDDT A£PB cy ryo j fdb«7 , * 

END DIRECTLY CALLS 1 

. _ VO. DNfc. _ . 

end directly and inoipecti y c*lls» 

. ILD. ONE. _ . 

*> end is directly cali ed byi 

US U El 5 £1 

EnDSEt DIRECTLY call*! 

D . . . INPAOH NhlTS.. SURS T R— XXOUT 

ENDSET DIRECTLY AK'd INDIRECTLY CALLS! 

— . CQPSTR. INDEX TAPA34. WHITS PUT JIQU, SJ A tUS— SUBS TR -VERIFY. . XXOUT.. 

O EnOSET Jfi DIRECTLY CALLEO BYi 

— M — Sf.TtUl__eEXE.4J2 1NS»CP “ODE SAULE SELECT SF1.RFC SPCSEy 

EXCHP DIRECTLY CALLS! 

3 CWAR CO^STF. D1 TINT _ TNRaRjL.. S'JBSTJl 

EXC “D DTRFCTLV AND TNDIRECTlY CALLSt 

OKA 0 -- _.CQ*iSTa DTE INI — INDEX JtUPjLBM SUBST.fi VERIFY 

■3 EXUD IS DIPETTLY CALI ED BY» 

- EvftvOS 

EXC“DS DIRECTLY CALLS! 

5 , „EXC W D_ .SUeSTR 

ExCMOS DIRECTLY and INDIRFCTI Y CALLS! 

CHAO _..CDMSTR_UTEIWT EXC5.B. INDEX INPAFM SUB STR VERIFY 

3 EXCPDS IS DIRECTLY CAUFD FRvi 

CRfR JFD FCR .fN S NfR .TPPPCB 

Expand directly cail«i 

M_ _CRRSTR FIND GFT .. . SUBSTp _ 

Expand DIRECTLY and INOIPECTI Y CALLS! 

CpN$ T R FIN D SET. ROLL -SMS-tii. 

Z) EXPAND is DIRECTLY CALLED 9 Yi 

exs'jff 

FINO DIRECTLY CAI LSI 

O .CdpstR opr _ , 

find Dl°FCH y AND TNDIRECTi Y CALLS ! 

c q y S TR.. CE! PCL! 

O FIND IS DIRECTIY CALLED RYl 
F X P A f D 


FORY DIRECTLY CALL*! 

sJ — -ADDb_ „ . CLOSEP COMSTI?.. 

FORM OIRFCTLY And TNMPFCTI Y CALLS! 

iDOR — close?.. ro u si?._eE! 

U F 0R« IS DIRECTLY CALLED 9Yt 
rpg>-M 


U 


FORYH DIRECTLY CALLS! 

F QRH _ .INDEX .. INPARM 

FORM“ DIRFCTLY AND TNDIRECTi Y CALLS! 

a?DR ... CLOSEP f 0"STR RQRy CET. INDEX 

W- F 0 R UM is directly called SYi 
r Untu 


„XNPARH_.LOC« F C_ »*I_ 



JUSSIS VER.IF..Y. 


..ROLL 


FTCI'P DIRECTLY CALLS! 


JUfiSTR _ _ 

Ftcbp DIRECTLY AND TNDIRFCTIY CALLS! 
SU6JTR 









* 

FTCDP is DIRECTLY CALI ED 8Y| 

C'CP CTRP .IFDRrP .TNSNCR 










FTF“T DTRECTLY CALLSl 

_ . CQAISTR .GET TajpaR.H ..LCC.REC LflRFMX. 

FTFPT DIRECTLY and INDIRECTLY CALLS* 

C OHS TP GFT TNCFX tnPaRu lOCMFC 

prmjto 








N 

LODFWT 

PRNTID 

ROLL 

VERIFY _ 






1 FTFmT IS DIRECTLY called r Y t 

CFCR CIPP IPDFCR .INSNCR 

GET DTRFCTLY calls* 

RQL1 - 

GET DTPFCTLY AND INDIPECTlY C*LLSi 

#01.1 ... 

GET IS DIRECTLY C»Ll ED RY* 

APDKEY ADCR aPSFI AMPDST FXPAND 

FIND 

ftfpt 

GETCl.O 

LOCATE 

LOCREC 

LQDFMT 

LODRE . 

PART 

...P.OH 

RangF »EPkFy pfpp SELECT SEUNIV 

1 GFTCLO DT B ECTI Y CAI t « i 

SORTS 

SSORT 

XXINI 

XX I N2 






ENOSET GET' (0C»EC RETINI SETQUT 

..GJE.TCLD DIRfCTLY and indirectly .calls* 

co u s t r endset get index inparn 

XxINI XXOUT 

XXINI 

XXOUT 








LOCREC 

NHITS 

PUT 

ROLL 

SETINl 

3ET0UT 

STATU 5 

SUBSTR 

VERIFY 

GETCLD IS DIRECTLY CALLED BY t 

i parse c ... . 

GETPAR DIRECTLY CALLS* 

f 1 DSET SETJN1 Sf.TOUT VXTMi YXmit 

- 





• 

• 



GETPAP DIRf'cTLY and INDIRECT! Y C*LLS* 

CDVSTS enoset ret index tnpaph 

UNITS 

PUT 

ROLL 

SETINl 

SFTCUT 

STATUS 

SUSSTR 

VERIFY 

XXINI 

XXOUT 

1 GETPAR IS DIRECTLY CALI'D RYt .. . . . 

P i R SF° 

GETPEC OT°FCTLV call?i 










1 I NP A R M l ODF M T LODREC 

-GETREC D»t “ E C T L v and T‘IDJPECTI Y TAILS* 









- 

CONST R GET INDEX TNPaRm t OCREC 

1 GETPEC IS DIRECTLY TALI ED PY* 

LOPFHT 

LODREC 

ROLL 

VERIFY 


- 



' 

AUFILE CFCR TNPUTE .IFOFCR JNSNCR 

headIR directly Cali si 

JPRPCR 

MOVSEG 

REST»X 

30RTS 







O INDEX INPARP SUBSTP 

header directly and rNnisrcTi v calls* 

COTSTP INDEX TNPARH SUPSTP VERIFY 

! J HE*0E Q is OI?ECt!=i_CALL£0_exi 

CIS'JS? 


In dex oip£ Cti y cai i si 

O COYSTR 

INDEX DIRECTLY AND INDIRECT! V Him : 

COASTS 

iJ_TN0E* _ J3_ DJS?CTLY_CALLE.D_ 6Y.I 

ACCND ADDPEC itPH APSFt CAUFIL CFTND CIRP CIOS! CQ“9IN CRESTS DJSPDD DISPLA FORUM heaoFR 

I “ f o ts E£_ PAN fi_F R£ A£ B EP KEV RE P R.EC BL CLPR RPC L P R_ J£L £ Cl 3 0 B \SL 3PC SCI 3.LC Rl TJU£L° Y£ RiEJf . 

tj XPQST 

InPaRm PTPFC T LY CALLS! 

HDEX VERIFY 

y_INPA»“ DIRECTLY AND T NO J P E_FJT1 Y_E*U-S_> 

CONST# INDEX VERIFY 

_ INPA°" is DIRECTLY CAM ED SY* _* _ . _ ■ 

u ACCHO' ADCNX ADDRFC AEInIT AE*R APSEL AUFILE CAUFIL CIRP ' CMDRI CfPUTE COHBIN CRESTS DELETE 

DJLRFC O ISPDC DlS p LA PTETNT FA’DSET EXeMO FQPMH FTFKT SETREC HEADER KQVSEG PARSEC PAkSEP KEAF 

RE'PR'EC SELECT S0»TP STATUS STCNT TF0R“ TUUMP XPOST XR£F 

,j_JFDFCR diffctlv Calls* . _. ... . .. 

AEINIT RLDiBF rirFDF PI 5F M T ExCMOS FTCM#' FT r MT GETREC LS5FMJ PrNTIO SETINl TFORMw TFC"*^ XXINI 

__JFDFCR DIRECTLY AND TNOpECTl Y CALLS! _____ _ 

w ADOPT ADDFV AODLT ADDK u a E I n ff AEPR SLCfBF CF I ND I**# CICFDF CC“STR DISFMT OTtl'T tXC«D 

FvfuDs ftcup itf“t r.RT ejTRFc Index tv.= aru LDC sr C »4 df-YT LODREC PSt-T;? RLCLPR "C.. RPCL p R 



SETIN1 502E STaEPS SUSSTR TFORPW TFORMZ VERIFY • XXIN1 

JFt5£.C B IS_DIREC.TUI_CALLEJD -RYl 

ClSl'Sl l 

_s_ . jnsncr oi»ectly calls! . . . — 

/,* »FI*JTT FNOSET PXr'^'S FTC«P e-TFKT GETREC PRNTIO RlCLPR 5ETIN1 SETOUT TFOR«w XXIM XXUUT 

■ JMSnCP PIRFC TL v AND IM URE. CH Y CALLli 

ir-cnr ADDFN *DO|.t aoDMM AEJNIT AfcoR CFIND' CHAR C0M5TR CTEINT EnOSET EXCfO EXC*03 PTCHP 

r U M T_. GET GETRHt— INDEX. 1NPIRB LOCREC ..LODFMT--LDDREC . NH1.1S RRNTJD -ELUT RULER _ROU SET-INt 

S5T"UT SGZE sT A ERR STATUS SURSTR TFQRMW VERIFY XXIni XXOUT 

_J.M3NCS.X5 OIBECXL Y . CALLEP.JYi __ ___ - 

CTSU82 

-JPRP CRJUmilJ- CA l LS i 

»E1NIT CIRP CO^STR BXCROS GETREC PRNTIO SETim SOB3TH TFORNW TFOSO l XXINI 

"■>_JP»?CB. DIRECTLY A MG T^IRECTlY. CALLS!. — 

ADORN AOPIT A E I NTT A E p R CFIND CHAR CIRP CDMSTR DTEIMT EXC*D EXCMDS FTC M ’ FTfMT GET 

GETREC . IRCEX. _ INPAPM LOCFEC - . LODFHT J.LODREC _ RRNIID ROUE -3EIINI . SOZE __3TA£PR_ SUBStft TFUR£iB._..TFOftMZ. 

1 VERTFv XXIM 

_JPRPCg_ IS PIREX.T1.Y PLIED Rvi 

C]M«IH 

CIRECTLY— CALLSI 

CONST? 

_<OMREY. D I e E C TLX..A N'D. .I W D I D EC_T LY- CALLS! 

1 CONST? 

kqprEy IS DIRECTLY CALI Fn p V ; 

RAPT 


">-_LAHD DIPECTLYL.tALLSI 

XXJM XXIN? yXOUT 

.XAND _ DTRECILT— *MQ_IHDI8EXHJf. CALLS! - 

N GET PUT ROLL VXJM XXTNJ XXOUT 

t *RO T T CIPECTLY CALI EH av’i 

Cr,ppl«j POST 

f»_U$T. DI EEC T LY_C ALLS 1 

C'XRSTB 

—LAST 01? ECILT _A±0_I UDISECJ.l_Y_tAL.LS. t 

f) OOPST? 

. .. UST _„IS DIRECTLY CALLER RY) ■ 

CL OREL UNITS 

‘J _ LtYJ *E_ 01 » EC.tLV_CA LI SI 

CO^Stp 

„LMVTS° DIRECILY_ANO_.tMCUPECIL.Y..C*.LLSj 

r) COASTS 

LMVTAS IS oipfctly Ca li eo by. 

JUFTLE CNPUTE PfSTPX 

0_ LMOT . DIRECTLY CALLS! 

XXIM XX 1 M? XXOUT 

_i_ NUT. . 0.1 RF C T L y _A.MT TNOIRECT I.v. C AlLSJ 

(z) GET PUT BOLL YXINJ XXIM? XXOUT 

LMO T TS CIRFCTLY CA L LED p vi 

CO^OTH “GST 

^-.LOCATE DIRECT U-CRLS1 

COM3 TP GET 

Locate oipectly. ah d .jm^lreciljlc im s i 

co^str get roil 

locate i s D I RECTLY CALL EO BY't 

AO&KtY APSEL r\£LREY PONT BADGE PEPKEY SELECT 

U-tOCPEC DIRECTLY CALLS! „ 

GET 

. LOCRRf OIPFCTLY ANo tmoirfcTI v C‘LLSt 
AS* GET ROLL 

L PC RFC 19 DIRECTLY CALI ED BYi 

A DDR DELR FTBMT pETCLD L n OP«T LOOREC «EPR SELREC 

U- LODf^t J)IPECTI.T CALLS! 

GET LOCREC 

..LqDFyt _ p J 5 E C T L t Ann tmdioecti Y.C*LL S« 

U SET UCRFC R0( L 


irr 






^ /S' 

s * 





CAUFIL CRESTS DISPDD FTP*! SETREC JFOFCR 

. L 0 D R E C _ p.I Rf C T L.Y CALLS! 

GET LOCREC 

t COOS' C ri B F-CTt,Y ane .INDIRECTLY .CALLSj . 

* GET LCCfiEC »OLL 

" LQORE ; TS OIREC T LY CALI Eft P Yt . 

C'PL'TE DISPLa GETPFC UNLOCK 

' _L05 DIRECTLY .CALLS! 

XXlNl XXIN? XXOUT 

— LOS_ „pTPE.CTLY..»ND_JMOIPE.CXl Y.. CALLS! 

' get put poll XXIM XXIN2 XXOUT 

i op ts dtofcti v rti i cn n v, 

CCPBT<" LXCR POST range 

'I-lXOP DIRECTLY .CALLS! ... 

LOR 

— LXOR .DIRECTLY -AND. INDIRECTLY CALLS!—. 

■* GET LOB PUT roll XXTN1 XXTN2 

—UfiS IS directly called sy. 

CCHBTN 

''_«OOE . DJRECTLY-CALLSI 

EVOSET 

--OOE. .DIRECTLY axb INOLPECTLY. CALLS! 

' COHSTR El'DSFT index TNPARm NHTTS Put 

_P.DOE TS DIRECTLY CAj I FD PY‘. 

Cl V A IN 

3_ m OVSEG DIRECTLY CALLS! 

C W A R GETRFC TNDE* Tf'PARH BEPR 

- “OVSES OIFECTiV Akr)..i4QJR£CTLY CALU! - 

} C-AR COM$TR GET GETREC INDEX INPAPH 

HQVSEG TS DTPECTLv rAllFD HVt 

cisueu 

)..NMITS .:iRFc!LV_rALLSl 

STATUS 

—"HITS,. DTRFCTL.Y- AND_TNniRECTl Y_CALLtl 

5 COHSTR INPEX I NR A RM STATUS VERIFY 

, NHITS IS DIRECTLY CALI ED BY i 

ABSEl ENOSFT SELECT SEUNIV 

J _PJ.RSEC. DIRECT! Y.fALLS !__ 

GETCLD INBaRp 

—PARSEC OTP_ECJLY ANp_t.NniR£CJLY_C‘US! 

) COHSTR ENOSET GET GETCLD TNOEX INPARP 

VC PTFY XXTM XXOUT 

PARS F C IS OIRECTIY CALLED BY i 

) CLSUgS 

PARSEB DIRECTLY CALLS! 

_ GE1 BAR . _T NP A R “ 

) PARSEB Ol'PE'CTLY AND INDIRECTLY CAlLSi 
ccpstr ENOSET GFT r.ETPAp tn'dfx inparh 

X«IN1 XXOUT ' ' " 

I —PARSER TS DIRECTLY CALLE D B Y t ___ 

C1SUR5 

_PAl! DT R E.c 7LY._C.AJJ. a I 

> GET KOMKFY PUT SUBSTR 

part directly and indirectly callsi 

COPSTR GET XOm'kEY PUT ROLL 8URSTB 

> _PART IS DIP£CTIY_.CALUG «tj 

SSORT 

..POST DIRECTLY CAILSi _ 

i get land i not iocate” lop ’“put * “ 

POST DTBFCTLY And TNOIRECTIV CALLS! 

COHSTR GET LAND LNDT LOCATE LOR 

i XXC'T 

POST is DIRECTLY CALLED BY't' 

AUPDST XBOST 
„ PRMTID DIRECTLY "TAIL S I 
„ nt DNi . 





PRNTID DIRECTLY * hJ»> INDIRECT! V C*LLSf 

M 0 _onf’. 

PRNT 1 h ^5 DIRECTLY CALLED By’i 


F T F“T _ JFOFCR _ .TNSNC R .IPR PCR 


* > 

* psw»5 directly calls: 
*»C OWE. 









- 

PS'*RD DIRFC t LY AND INDIRECT! Y CALLS! 
MO ONE. 










PS"P0 IS DIRECTLY CALLED «vi 
SVINL'S SPLUS UNI nrx 








* 


PUT DIRECTLY CALLS! 

»CLL 





- 



_ ___ 

■% 

PUT DIRECTLY AND INDIRECT! V CALLS! 

.. ROLI . . 






- 




put is directly cali fd syi 

ADDKEY ADDS. . APSTUP .AtJP.OST. DEI KEY DEI R_. _P.AR.T 

post REPKEy Repr . SEunly. sorts 

SPLL'S SSORT 


Yyout 

Range directly C At i SI 










COKSTft 5 noset get ' tndey locate 

.. RANGE ..DIR'CTLY AND. TNDLBECT1 Y .C4LLSi 

LOR 

SETINl 

setinb 

SETOUT 

SUBSTft 

VERIFY 

XX INI 

XX0UT 


C0 U STR ENDSET GET INDEX INPARM 

. . SuBST® VEOI.Ev _yxiN.l vxIn2 YXOU.T 

LOCATE 

LOR 

NMITS 

PUT 

ROLL 

SETIN1 

SETIN3 

SETOUT STATUS 


RANGE IS DIRECTLY CALLED RV ( 
APSEl SFL EOT 









- ^ 

REAP DIRECTLY CALLS! 

TNDF X INPAPM SIIORTR 










R£AF DTRFCTLY and INDIRECT! Y CALLS! 

_ -CONSTR_ INDEX inpj.i?'' SUHSIR- VERIFY 










REAP IS DIRECTLY CALLED RYl 

CJSUPS 









*1 

REPhEy DIRECTLY CALLS! 

— CLOSFP GET . TNl-EY '.1 DCatf PUT 

JUSSIS 

.YtPIFY_ 






X> 


REFKEy directly and IntibeCTiy CALLS! 

. . CLOSEP . CO«STR GET. enDEV iogate 

PUT 

ROLL 

SliB-SIR^ 

—VJLRJJLY. 






REPxEy IS DIRECTLY CALLED SYi 
CISUPd 








•1 

■ REPR DIRECTLY CALLS! 

GET LOCRfC p(jy hibstr 










REPP DIRECTLY AND INSPECT! Y CALLS! 

GLL-. . LOCRFC.„PyT POLL.. -SUSSTR . 









t) 

REPR IS DIRECTLY CALLED PYl 

Al'FILE CEfS r“RUTF MDVSEG PEPRFC 

RESTRY 









reprec directly calls: 

closer index tnparm repr 









REPREC DIRFCTLY and INDIRECT! Y CALLS! 

CLOSFP CO M $TP PET tNDPX TNPARM 

j.ac5Ec__ 

pat_ 

REPS 

RALL 

5JJB.SJ.R_ 

verify 



>) 

REpSE: IS DIRECTLY" call ED AY, 
CtSMRh 









iJ. 

RESTRif DIRECTLY CALLSl 

_ APSCNT_ A PS I NT APSJUP AUPQST C1.0SEP 

DELR 

..getrec LMVTaB 

»EP« 

JEIINL 

SU9SJR 

TFORM XXINT 


BESTS* DIRECTLY AND INDIRECT! V CALLS! 

addkey ap$cnt arsej^ a p j i nj apstlip 

AM POST 

.CHAR, 

-.CLOSEP- 

COMSTR 

DELKEY 

.DELR 

ENDSET GET GETREC 

a 

Index InPaRm kOMk'FY 1 AND L H VTAR 

PUT RANGE REPR PDLt SETTNI 

LNOT LOCATE 

SET.iN? SETOUT . 

LOCREC 

SSORT 

loofht 

STATUS 

LODREC 

SU8STR 

LOR 

TFORM 

NHIT* 

VERIFY 

PART POST 

XXIM XXTNS 

u 

xxout 

RESTR<_IS DIRECTLY. .CALLED RYi 









CRESTS 

— R.LCLPR. DIRECTLY PALI Si 









u 

A 5DDT ADOFN A DDL Y ADDnm 

BLCLPR DIRECTLY AND TNDTRFCTLY -CALLS! 

CFIfiO 

COHSTR 

INDEX 






u 

ADDDT ADDFN AODLT ADDN« AEPR 

_RJ.CLP.R J_S_DIBtC.TLY„CALLED.,B.Yt 

Cf JNS 

C«AR 

COR3TR 

DTEINT 

INDEX 

INPARM 

STAEPR 

SUSSTR VERIFY 


CICFOF JNSNCR 

-J.OU DiPECTLY_C.Ai.LSl 

Mp OME. 

Dai i MElJ’Ti w ink • hr u a ii i • . 



no ONE. 

. poll — n -C.i B EtiLy-.cAU-ECL_ey.t. 

GET PUT 

4 P.PCLP.P DIRECTLY CALLS* 

_J" AfDCT AODF> AOOLT AODNM AFPR 

’ , PPC L -DTPectly a*d t»joTPTrri v dai i «. 

iron’ AODfN ADDLT ABDNM aE PR 

’ — PRCL PB IS ISIUECTLY. CALL£D_BYi 

CtCFW 

-SEL 0 1 ? EC TLY. .CALLS ! 

> CIMATN F\p UMTS 

_4EL QJ-BLCIl V—AJYD.TNDIPFrTl V film 

*CCnn iOOOT IODFN aDDKEY ADDLT 

AU r ILE„ ALMOST . PE^IM BLDTBF. 

cisupu ersuR5 cisuba dl c anp 

CE'.R GEL PEC . D'SFHT. 

FTCMP F7CMT RFT 


CFIMO COMSTR INDEX 


CFtNO CHAR COMSTR DTEJNT INDEX INPARM STALPS SUbSTR VERIFY 


'*> ATTACH 

CTSHB3 

ciL<er 

*"> FCtvM 


LAST I HVTAB I «lf!T 


AOONM 
CAUFIL 
CLOSFL 
J5ISPOD..D1SPLA 
GETCLO GETPAR 


ADDR ADDREC 
CFCR „CPIND 
CLOSEP CHORI 
DTEINT- end 
getrec HEADER 


Ci 


a „ — — JJCA.TE LQCflEC L OPFHT LOORFC 

PARSEP oast t>0ST OBVTIO OSWRD PUT RANGE REAF 

,S3£;lPJ?_ SELECT. SELSEC- -S E T I W 1 — SETI.N2 SETOUT SEUNlV—SHl NUS 

STAE»y STATUS STCNT RU85TR TFOR u TFCtRHk TFORMZ TJUMP 

_ X XI N 2 XXOUI 

9EL IS OJPECTI Y CALI ED BY i 

Nn nNC 


aeinit aepr APsCNT apsel 

CHAR . . CICFDF .„C IHAIH CIFP 

CHPUTE CQMBIN COMSTR CRESTS 
ENDSET -EYCHD _EXCHDS EX b /,ND 
INDEX INPARH JFDFCR JNSACR 

-L2* UO? HflCi iOXE iSL- 

RESTRX 
SPLU3 

XPOST 


REPKEY 

SQRTP_ 

UNITS 


REPR REPREC 
SORTS . .SPCSET 
UNLOCK VERIFY 


AP51NT APSTUP 

.cisuei CISUB2 

DBPRO DELETE 

FIND ..FORR 

JPRPCR kohkey 
NHU.S. PAR SEC 


PLCLPR 
SUZt -- 
XHEF 


BOLL 

8S0RT. 

XXINi 


SELECT HirFCTlv CALLS* “ 

rz- ;^FT GET_ _ .INDEX _TNPaRm_LQCAT£ — tIHITS RANGE SUBSTB__V£RIFt. 

SELECT DtRECTLY AND TUOIRECTIY DA(.LS) 

,, - Gt - 1 t-NDEX J -N£ ASH — L Q C A IF — LjO S SUITS P.UT 

© STATUS SUBSIfl VERIFY VXlNt XXINJ XXOUT 

SELFCT IS DIRECTLY CAMEO BY. 

Cl SUB? ~ — 

O —SELREC OIRFCTUr. CALLS 

‘CCnO EKPSFT ttCREC SETOUT XXOUT “ 


.RANGE jlOLL SE.TItl.l SE.TIKZ _SETQU£_ 


— SELREC DIRECTLY AKQ ..INDIRECT) V r A I LS i 

ACCNO COMSTR FWOSFT GET INDEX 

X *C“JT 


INOARM LOCREC Nwlfs b UT ROLL SETOUT STATUS SUBSTR VERIFY 


* SELREC 'IS DIRECTLY 'CAM ED ByP 
«3> AODREC CISUR?... 


SETIN)' DIRECTLY CALLS) 

,.ND OMf, __ 


O SEl'lNi OTPEC'tly and TNOIREf Tl V CAULS) ™ 

Nf> ONE. 

SEHM IS DIRFCTl y CALI ED BY) ' — 

SETlN? C OIREC?LV U CA'L L sr M>L - WSP ‘ kA — ' ‘ ET -CLP„J IE T PA^._ J LFpF£R _.JNSN C R . JPRPCR._ PD4J RANGE 

Vp 0*E. 


..R6SIRX. . 50RTS. X.REP. _ 


& setin? directly and tndirecti'y c 4 LLSt 
VQ QNF. 


SEII^ IS DIRECTLY CALLED SV i 

© COHPIN ROST RAOGF 

SETOUT OIRFCTLY CALlIT ' 

NO ONE, 


© SETOUT OIRFCTLY AND TNDIRECTIY C*LLSf 
no one; 


SETOUT IS DIRECTLY CALLED BY i 
0_ . COHPIU GETCLO J5ETPAR ,)NSNCR POST 
SEUNIV DIRFCTLY CALLS) ” 

GET WHITS _ PUT _ _.,SU8STfi 


RA NQE S ELR E C S_OR T ?__S£C SET. 


seumv direc t ly and" ind'irecVly CALLsT" 

COMSTR GET INDEX TNPARh NNITS 


SEUNIV IS DIRECTLY C*Ll EO BY) 

‘O CI6UB5 

SMIN"S OIRFCTLY CALLS)"’ 

DUP PSwRD 

^ SxlNUS M&ECTLY AND TNIYJOECTI 7 ‘c*LLSi 

''El P GET I nrcFr dc»ba bmt 


PUT 


ROLL STATUS SUBSTR VERIFY 


bm > 


SHINUS IS DIRECTLY CALLED BYi 

... _.CIS'J93 

SORT? OTRfC T LV CAULS I i 

. _ CLCSEL. t^DEX _IYPARm. sqbtS . . SUP&TR 

SORTS MSfCTLT 4*0 I YP I RECTI Y C‘LL5t 



Cl GSPL CCYSTO rfy 

p.ETREr 

INDEX 

TNPARH 

KQHKEY 

L«3I 

LOCREC 

LflDFMT 

LODREC 

PART 

_RllT 

RDLL 




SETIY1 SETOUT SPOTS 
_90RT B IS DIRECTLY jrALLtO 
CISUPR 

SORT S PIRFCTI V Til 1 «. 

^SO»T 

H Y 1 

SUBSTR 

VERIFY 

XX INI 

XXOUT 













* 










-s 

GFT GPTRRC PUT SET IN 1 SETOUT 

SORTS DTRFfTIY AND TNPTBFTTl V CAltSl 

SSORT 

SUBSTR 

XXINl 

XXOUT 









CONST® GET GETREC 

S!0® T _ SUBSTR .VERIFY. 

SORTS I® DIRECTLY CALI EO 
*DRTP 

TNDE* 
...YXI'A L_ 
PY» 

inparh 
. YXOUT 

XOMKEY 

LOCREC 

LOOFMT 

LODREC 

PART 

PUT 

ROLL 

SETINI 

SETOUT 












• 




SPCSET DTRECTLY CALLS! 

Aprvo FYPSET TyDFY 

SETOUT 

SUBSTR 

XXDHT 











T 

SPCSET DIBFCTLY A*c TYTIRFCTLY CALLS! 

.. . 4CC*0 . .C0«S1R .ENDSET„_TKDE)L,_1>IP.ABH.. 

— HRLIS — 

PUT 

-R.QLL 

.SETOUT. 

—STATU 3 

—SUBSTR 

-VERIFY- 

..XXUUT — 


' 



SPCSEt IS DIRECTLY CALLED BY* 

Cl SUBS . * — — - — — — 

O SPLITS '‘ipe C TLY CAl |_s I 

AQftB P$ WRD PU T __ 

SPLl'S <1IPEC T U‘' 4*0 ’YDin c CTl Y CALLS! 

ADC® SET .. (OCREC. PSWRD- -PUT -SOU SUBSTR ... 

SPLU8 IS DIRECTLY CALLED BY* 

CIS l if ' 1 ... - 

«> SoZE "IPfCTLY CALLSI 

f f> QMF, ■ _____ 

S'QZE DI°ECTLY 4*0 INDIRECT! Y C‘LLS! 

O _ . M *i a ome.__ 

SQZE IS DIRECTLY CAL £0 8Y| 

«E1MT 

© SSORT PIRECTtV C4| LSI 

GET PART PUT 1 

' 3 SORT &I»ECTLY AND INDIRECT! Y CALLS! 

S3 . CCi*STR. .SET <2Y<E Y„ _ o ARU J* lit BOLL SUBSIR 

SSORT IS OJPFCTLY CALLED RV j 

Auf&T _Sfi?U — 

O ST4ERP DIRECTLY CALLS! 

srsua^* — — — 

STAEPP DIRECTLY AMD TYPIRECTtY CALLS! 

" STAEPR IS direct! y""ca"liFd" BY» ~ 

STATUS 01 TLy'cIlTsT 

I_yp AS- “ 1 

STATHJs'OIPfCTlV A*o TNniBFCTt Y C 4 LL3l 

& _ CPSSTR .If»OEX_ jnba.P«S. -VEBLFY — 

STATUS IS DIRECTLY CALLED BY» 

BEGIN CI«AIN ‘HITS _ 

tS STCvT DIRECTLY CAI LSI 

T^CEY JYPjIPw SALES TB , 

STCHT DIRECTLY AND TYDIRECTI Y C 4 LL8! 

Q _CCRSTR_ I*D£_X — INPAR U SUBS to VESLLEJt _ - 

STCYT IS DIRECTLY CAU £D BY, 

CISUP2 ... 

U SUBSTa tTRFCTLy C ALLS t 

Yp D YE. : 

SURSTo d'jppCTLY At.D TMIBECTl Y CALLS! 

SUBSTR IS DIRECTI Y CALLED "by j 

. 40DCY acpkFy 4D0R HOCRTC .A B SEL _ APSTL'R ATTACH A'JFItE _Av 3 y?i_ BEGIN CI-AIY _CL0S6L CTC 3 I ChPUTE .. 

COf'BTN DRPRO PEI-KEY DTET*T ?Y*$FT EXC“C EXC^DS EXPAND F’C <0 HEADER JP? a CS PARI o; s T RANGE 

»t»r Y»»t( a r ov oFSTB r crirrT StUS T l «:BTP SORTS *’C5ET STCUT TFrR- TFORY. yf.’-YZ TJU““ 




UNLOCK 

_Tjrgpt-_.ojRfCTU-CJU.LSl. ___ 

C«AR CO u STR TNOARN SUOSTR 

-L— TFOP^ „OIRECT!,y_4S'5. IVDIRECTI y calls: 

c *» Char C? w STR TROEX TNPARw SL'SSTR 

• TFQP» Tg PIRECTty FAMED PY, 

AuFILE PESTRX 

''—TF.OSiy BIRECTLy.CALLSl. 

S'JBSTR 

_TFOR«* ClFlCTUV_4N’[ i _i>,>I.BECtLX CALLS! 

SL'SSTR 

TFOP * " TS 0 1° EC TLY CALI ED RvV 

C?CR JPOFCR JNSNCR JPRPCR 

") tfcr-Z OPFCTtv CALLS: ... . 

C*'4» COYSTR dtfi«t UIBSTfl 

__IFGP“Z.DI»ECTLY_4nd INDIRECTLY CALLS:. 

O C W AR COPSTR DTE I NT TMDEY INPARM 

TFO. p v i r IS aiL C CT t Y r.4Lt ED .pvi 

C p CR JFDFCR jrrpcr 

n_IJU M P_ .alFFCTLY..CAiLS» 

INDEX InpaPP S'JSSTR 

. TJ'JPP 0T«ECTLY and INOIPECTlY CALLS: 

*”> COHSTR IMr.CY inoaQH (S'JBSTR VERIFY 

T.rUY a TS DIRECTLY FAMED RV. 

CIS'JP8 

O . UNITS DIRECTLY C4LLS: .. . . __ . 

LAST 

_ gRJTS DIRECTLY, A WO .LN8I RECILY. CALLS 1 

O CPHSTP LAST 

UNITS IS DIRECTLY CALLED BY: 

. SEL 

F» UNLOCK nTRE.CTLY CALLS). . , 

CO«STR LODREC PSWRO SUSSTr 

-JJRLDCjL PI “EiTLY.. Ajijj jMjjreotlY. C‘LLS: 

© CONS YR GET I OCREC tODREc PSWRO 

' UNLOCK IS DIRECTLY CALLED BY, 

ctsunj 

-- VEfi.I/.v _D T R_F C.T L Y_.c 4.1 L.<U_ 

TROfY 

VERIFY DIRECTLY _AND TNPTQF CTl Y C4 | I s t 

Q ' CDhSTR "index 

VESJFy is DIRECTLY C4L1ED PY i . 

ADOYEY *FPR 4PSEL CINAlN CKPUTE 

© _*P 0 5 T PI Rf .C.T L_Y__r_A ILLS t 

CLOSEP INDEX INPARn POST 

XPO ST DTRECTLY And TNDIRFCTIV CALLU 

© CLOSEP CO p STR get INDEX TNPARM 

SETQt'T Sl'PSTR VERIFY XXlNl XXIN? 

XPOST IS DIRECTLY C»U £0 BY: ’ 

© CI_§Ll n ft 

X8EF DI°FCTLY C At L S * 

IMPART JFTLK'I JfVUtl 

© XREF OIPECTLY AND INDIRECTLY CALLS: 

epHgTP C FT TN^EY TNPARn POLL 

XREF IS DIRECTLY CALLED BY: 

0_ _ C T SOBS 

XXIM cT»ECTly Calls: 

_ . GET _ 

© XXlNI OIPFCTly and TNDJRECTIY CAULS: 

GET R OLL 

XXJNl IS DIRECTLY CALLED BY I 

Q CF CR C U P_UTE OUPIA C.ET CLP G ETPAR 

'“XREF" 

__XxlN? DIRFCTLY calls: __ 

u get 

VvTn, 3 r. TOtMl v iMn TV.nrocpTl w ni i c. 


VERIFY 


substr verify 


ROLL SUB3TR 


COMBIN D8PR0 OELKEY INPARM 


LAND LNOT 

YXOltT 


SETINt VERIFY 


LOCATE 


JFDFCR JNSNCR, JPRPCR 




SFT POLL 

' _X X t!i2 _J3_5_I.PL C ! Ly_CALLE.n_JB.Y_i 

Land lwot lop - x 

XXB'JT _5L H ECILY_ CALLS* 

% * put 

' XHOUT PiPFCTLV AMU T^OiagCTI V.. CALLS!. . - 

B, JT POLL 

J '_XXOllI — IS PJPECTLY-CSLLE!) £Y» 

E V DS?T OETCI D GETP 1 P JNSK'CR LAND LNoT LOR RANGE SELREC SORTS SPCSET 



3.2.3 NEW BUFFER FORMATS, COMMON BLOCKS, AND TABLES 

On the following pages are described new buffer formats and tables, 
along with the new common blocks which contain them. 





COMMON BLOCK CLTBL 


This common block contains the 50 word array named COMMAS, 
which is the Comma Location Table. 



COMMA LOCATION TABLE 


Table that points to the commas which surround relational, 
replacement, and BY clauses, and report expressions in the 
packed input string for the command. It is a one-dimensional 
array of four-byte integers. 

-Word 1 - binary integer whose absolute value is the last used 

word of the Comma Location Table. A negative value is 
used for the JP § RP commands to indicate that the 
command terminating exclamation point was encountered 
b.y subroutine SQZE. 

Words 2-n - binary integers whose values are the character 

numbers in array CMD of /SY3C0M/ where significant 
syntactical commas occur. 



COMMON BLOCK SY3COM 



CTBL (5 , 50) 

FCTBL (5,10) 

WBUF(50) 

WBF (7,50) 

SBF (7,20) 

TBF (7,30) 

MLMT(2 , 20) 

MTCT(3,2) 

BPT (10,5) 

REG (16) 

CMD(IOO) 

NCTBL 

NFCTBL 

NWBF 

NSBF 

NTBF 

NMLMT 

NMTCT 

NBPT 


Normal Command Table 
Function Command Table 
Working Buffer 
Working Buffer Format 
Source Buffer Format 
Target Buffer Format 
Multilevel Move Table 
Move Table Control Table 
BY Processing Table 
Intermediate storage registers 
Packed input command 
last used row number in CTBL 
last used row number in FCTBL 
last used row number in WBF 
last used row number in SBF 
last used row number in TBF 
last used row number in MLMT 
last used row number in MTCT 
last used row number in BPT 




COMMAND TABLE 


General layout for the normal command table and the function 
command table. Each row of this five-column table represents 
an operation to be performed by the execute command subroutine, 
EXCMD. 

Column 1-1 word - binary integer pointing to the first operand. 
A positive number is the row number of the Working Buffer 
Format. A negative number means an intermediate storage 
register, and its absolute value tells which register. 

Column 2-1 word - positive binary integer representing the 

operation to be performed. See Command Operations Table. 

Column 3-1 word - binary integer pointing to the second operand 
for binary operations. Same type pointer as column 1. 

Column 4-1 word - binary integer pointing to the location where 
the result of the operation' is to be stored. Same type 
pointer as column 1. 

Column 5-1 word - binary integer whose value is the row number 
of this command table to which a jump is made when the 
current operation cannot be performed due to absence 
of data in an operand. 





COMMAND OPERATIONS TABLE ‘ 


This table does not exist as an identifiable entity in the 
software. It is an explanation of what is meant by a row 
of a command table and a definition of what operation is 
performed for each operator by the subroutine EXCMD. In 
the description below, columns 1-4 of a command table are 
referenced by the terms 0PND(1), OPERATOR, OPND(2), and 
RESULT, respectively, and CFLAG is a logical argument in 
the call to EXCMD. 


‘ OPERATOR 

1 

2 

3 

4 

5 

6 

7 

8 
9 


10 

11 

12 

13 


OPERATION PERFORMED 

ADDITION: OPND(l) + OPND (2) -^RESULT 

SUBTRACTION: OPND(l) - OPND C2)+RESULT 

MULTIPLICATION: 0PND(1) * OPND C 2) ^RESULT 

DIVISION: OPND (1) /OPND (2) ^RESULT 

.LT.: IF OPND (1) < OPND(2) , THEN .TRUE .CFLAG , 

OTHERWISE . FALSE .CFLAG 

.LE.: IF OPND(l) <_ OPND(2) , THEN . TRUE .C FLAG , 

OTHERWISE . FALSE. CFLAG 

.EQ.: IF OPND(l) = OPND C 2) , THEN .TRUE. CFLAG, 

OTHERWISE .FALSE. CFLAG 

.NE.: IF OPND (1) f OPND (2) , THEN .TRUE .CFLAG , 

OTHERWISE . FALSE .CFLAG 


.GE.: IF OPND(l) > OPND(2) , THEN .TRUE, 

OTHERWISE .FALSE. CFLAG 


CFLAG, 


.GT.: IF OPND (1) > OPND [2) , THEN . TRUE . ■+ CFLAG, 

OTHERWISE FALSE, -CFLAG 


COUNT: IF OPND (2) IS NOT BLANK, THEN OPND(l) 

+1+ OPND (I) 

NUM. MIN.: THE NUMERICAL MINIMUM OF OPND(l) AND 

OPND (2)-* OPND (1} 

NUM. MAX.: THE NUMERICAL MAXIMUM OF OPND(l) AND 

OPND (2) -*■ OPND Cl) 


iSSaasL 



OPERATOR 

14 

15 

16 


OPERATION PERFORMED 

ALPHA MIN. : THE ALPHA MINIMUM OF OPND(l) AND 

OPND(2) -J- OPND(l) 

ALPHA MAX.: THE ALPHA MAXIMUM OF OPND(l) AND 

OPND(2) OPND(l) 

TRANSFER: OPND(13->- RESULT 



BUFFER FORMATS 


General layout for Source Buffer Format (SBF) > Working Buffer 
Format (WBF), and Target Buffer. Format (TBF) . 

Column 1-1 word - SBF: temporary key field indicator for CF 

t 

command 

WBF: the value to be used for initialization after 

printing of a results field 
TBF: print flag to associate printing of this field 

with a change of a BY' field (BY processing table 
row number N) 

Print flag = 2*N-1 means print this field at top 
of BY number N 

Print flag = 2*N means print this field at bottom 
of BY number N 

Column 2-3 words - SBF: first word is data base format row 

number of key field for CF command. 

WBF: four types of data: (13 alphanumeric characters 

representing field names, (2) $Lbb in first word 
for integer literal in command line, (3) $Tbb in 
first word for alphanumeric literal in command line, 
(4) $Rbb in first word for calculation results 
TBF: First word is row number of WBF of desired output 

field. Second word is key field indicator for CF 
command. Third word is data base format row 
number of key field for CF command. 

Column 3-1 word - SBF, WBF, TBF: starting character for actual 

value in buffer being used. (In WBF, the data is actually 
in the command line instead of the working buffer if 
column 2 = $’Tbb) 

Column 4-1 word - SBF, WBF, TBF: length of field (in characters 3 




Column 5 
-1 
0 
1 
2 


- 1 word - SBF , WBF, TBF : type of data in the field: 

means a binary integer contained in 4 characters 
means an alphanumeric character string 
means an integer in a numeric character string 
means a date in YDDD numeric character string format 



MULTILEVEL MOVE TABLE 


Each row of this two-column table represents a move of data to 
be made by TFORMW subroutine. 

Column 1-1 word - binary integer whose value is the row number 
of the Source Buffer Format array where information 
about the field m the Source Buffer is located. 

Column 2-1 word - binary integer whose value is the row number 
of the Working Buffer Format array where information 
about the field in the Working Buffer is located. 

MOVE TABLE CONTROL TABLE 

Each row of this three-column table defines which moves in the 
Multilevel Move Table are to be performed for the record in 
the Source Buffer from a particular data base level. 

Column 1-1 word - binary integer whose value is the starting 
row number in the Multilevel Move Table. 

Column 2-1 word - binary integer whose value is the number of 
rows in the Multilevel Move Table to be processed via 
TFORMW subroutine to get all the needed data transferred 
from the Source Buffer to the Working Buffer at a 
particular data base level. 


Column 3-1 word - binary integer whose value is the format 
number for records at this data base level. 



BY PROCESSING TABLE 


Each successive row of this table defines a successively lower 

level subgroup of the input data and the processing associated 

with a change at that subgroup level. 

Column 1-1 word - binary integer; index to Working Buffer 

Format Ci-e., row number) pointing to the Grouping Field 
Name (GFN) . If 0, it means the GFN was E§E. If <0, then 
a calculation must be performed before a test for the BY 
change can be made. 

Column 2-1 word - binary integer; starting row number of normal 
command table when column 1 is <0. 

Column 3-1 word - binary integer; number of rows of normal 
command table to be processed when column 1 is <0. 

Column 4-1 word - binary integer; starting row number of normal 
command table for use when the value of this BY field or 
calculation changes. 

Column 5-1 word - binary integer; number of rows of normal 

command table to process when the value of this BY field 
or calculation changes. 

Column 6-5 words - current value of the GFN for this subgroup 
level. An integer or calculation result is stored in 
the first word, whereas a text field may be all 20 
characters . 


iM 




